Shareware Super Platinum 8

home *** CD-ROM | disk | FTP | other *** search

/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / DATABASE / SAC271.ZIP;1 / FOXPRO.ZIP / SCR.FXP (.txt) < prev next >

Wrap

MS Visual FoxPro App | 1994-05-25 | 446.3 KB | 6,290 lines

Current Index not Ordered Press [Enter] for default Press [Esc] to abort DO FLD_HELP WITH nFLD DO FLD_POP1 IN SCR WITH nFLD KEYBOARD CHR(23) PLAIN UPPER(M->OBJECT)f Enter Object Name: cFORM_SCRf M->OBJECT M->OBJECTf mDUMMYf .AND.8 LOC_1$UPPER(OBJECT) .AND.8 LOC_1=RIGHT(RTRIM(UPPER(OBJECT)),LEN(LOC_1)) .AND.8 LOC_1=LEFT(LTRIM(UPPER(OBJECT)),LEN(LOC_1)) .AND.8 LOC_1=UPPER(OBJECT) .AND.8 LOCATE FOR &cLOCATE IF EOF() .OR. .NOT. (&cFILTER) Index Key cSEARCHf not found cFORM_SCRf DO FLD_SAY&cFORM_SCR not found -- but this is close cFORM_SCRf DO FLD_SAY&cFORM_SCR BDISPLAY BLEFT BRIGHT CDISPLAY CSEARCH MDUMMY MVALID NREC_PTR DIALOG CLOCATE BLOCATE BLOCATE2 OBJECT FNAKA LOC_1 BEXACT PLSWAIT NORDER CFILTER FNFOUND CVARREAD CVARREAD UPPER(M->OBJECT)f CSEARCH OBJECT Current Index not Ordered Press [Enter] for default Press [Esc] to abort DO FLD_HELP WITH nFLD DO FLD_POP2 IN SCR WITH nFLD KEYBOARD CHR(23) PLAIN UPPER(M->OTHER)f Enter Other Object Name: cFORM_SCRf M->OTHER M->OTHERf mDUMMYf .AND.8 LOC_2$UPPER(OTHER) .AND.8 LOC_2=RIGHT(RTRIM(UPPER(OTHER)),LEN(LOC_2)) .AND.8 LOC_2=LEFT(LTRIM(UPPER(OTHER)),LEN(LOC_2)) .AND.8 LOC_2=UPPER(OTHER) .AND.8 LOCATE FOR &cLOCATE IF EOF() .OR. .NOT. (&cFILTER) Index Key cSEARCHf not found cFORM_SCRf DO FLD_SAY&cFORM_SCR not found -- but this is close cFORM_SCRf DO FLD_SAY&cFORM_SCR BDISPLAY BLEFT BRIGHT CDISPLAY CSEARCH MDUMMY MVALID NREC_PTR DIALOG CLOCATE BLOCATE BLOCATE2 OTHER FNAKA LOC_2 BEXACT PLSWAIT NORDER CFILTER FNFOUND CVARREAD CVARREAD UPPER(M->OTHER)f CSEARCH OTHER Current Index not Ordered Press [Enter] for default Press [Esc] to abort DO FLD_HELP WITH nFLD DO FLD_POP3 IN SCR WITH nFLD KEYBOARD CHR(23) PLAIN UPPER(M->NOTES)f M->NOTESf Enter Notes: M->NOTESf mDUMMYf .AND.8 LOC_3$UPPER(NOTES) .AND.8 LOC_3=RIGHT(RTRIM(UPPER(NOTES)),LEN(LOC_3)) .AND.8 LOC_3=LEFT(LTRIM(UPPER(NOTES)),LEN(LOC_3)) .AND.8 LOC_3=UPPER(NOTES) .AND.8 LOCATE FOR &cLOCATE IF EOF() .OR. .NOT. (&cFILTER) Index Key cSEARCHf not found cFORM_SCRf DO FLD_SAY&cFORM_SCR not found -- but this is close cFORM_SCRf DO FLD_SAY&cFORM_SCR BDISPLAY BLEFT BRIGHT CDISPLAY CSEARCH MDUMMY MVALID NREC_PTR DIALOG CLOCATE BLOCATE BLOCATE2 NOTES LOC_3 BEXACT PLSWAIT NORDER CFILTER FNFOUND CVARREAD CVARREAD UPPER(M->NOTES)f CSEARCH NOTES M->FLAGf M->TYPEf M->CONSTf M->U2000f M->TIRIONf _CHANGE _DELETE BSAVED MALTER FNALTER BEXTRA CPROGRAM FNRLOCK U2000 FNU2000 TIRION FNTIRION ALTER MVALID NEXTKEY CONST _FLDfF M->TYPEf mVALIDf _FLDfF M->CONSTf mVALIDf mVALIDf mVALIDf CFLD_DESC MDESC MALTER FNALTER FLD_POP10 MVALID FNRLOCK FLD_DES10 CONST FNBURHAM FNCONV U2000 FNU2000 TIRION FNTIRION _CHANGE ALTER TIMEOUT F TIMEOUT nTO_READ8 LAST CLOSE GROW ZOOM SYSTEM Press [F10] when done Press [Esc] to abort DO FLD_HELP WITH VARREAD() DO FLD_TAB WITH -1 KEYBOARD CHR(23) PLAIN CTRL-J DO JKEY WITH (SET("NEAR") = "ON") NODELETEF CTRL-T DO FLD_DEL WITH .T. CTRL-HOME DO FLD_TAB WITH 29 DO FLD_TAB WITH 9 READERROR BROWSE FIELDS FLAG=IIF(EMPTY(GIF)," ","*"):r:W=.F. ,OBJECT:V=BRV(5) ,OTHER:V=BRV(6) ,TYPE:V=BRV(7):F:P="@"+"!":W=BRW(7) ,CONST:V=BRV(8):F:P="@"+"!":W=BRW(8) ,RA:V=BRV(9):P="@"+"K"+" "+"99.9999":W=BRW(9) ,DEC:V=BRV(10):P="@"+"K"+" "+"999.9999":W=BRW(10) ,MAG:V=BRV(11):P="@"+"K"+" "+"99.9" ,BRSTR:V=BRV(12):P="@"+"K"+" "+"99.99" ,DESC:V=BRV(13) ,SIZE:V=BRV(14) ,CLASS:V=BRV(15) ,SOURCE:V=BRV(16) ,NSTS:V=BRV(17):P="@"+"K"+" "+"9999" ,U2000=fnU2000(M->RA,M->DEC):W=.F. ,TIRION=fnTIRION(M->RA,M->DEC):W=.F. ,CLUBS:V=BRV(20) ,NOTES:V=BRV(21) &cBROWSE WINDOW (cNAME) &cREAD WHEN BRW(0) VALID:F BRV(0) NEARz ON READERROR &cREAD_ERR CWINDOW _JDBLCLICKFLD _DESC BDISPLAY BSAVED CNAME CREAD CREAD_ERR CTITLE NFLD_BEG NFLD_END MALTER MDUMMY NLEVEL KCBROWSE BMULT FNGETENV NSCHEME WINDOW DIALOG ILTER NOTES Press [F10] when done Press [Esc] to abort DO FLD_HELP WITH nFLD DO FLD_POP10 IN SCR WITH nFLD KEYBOARD CHR(23) PLAIN MOUSE DO FLD_MOUSE WITH .F. RIGHTMOUSE DO FLD_MOUSE WITH .T. Object Name, press [F1] for list Other known names Type of Object, press [F1] for popup mVALIDf Constellation Name, [F1] for popup mVALIDf Right Ascension (DD.MMSS) 99.9999 99.9999 99.9999 mVALIDf Declination (+DD.MMSS) 999.9999 999.9999 999.9999 mVALIDf Magnitude to nearest Tenth Magnitude of Brightest star in Cluster 99.99 99.99 99.99 Description, press [F1] for list Size in Arc Minutes (') or seconds (") Classification, press [F1] for list Source of Info., press [F1] for list Number of stars within a Cluster Clubs looking for non-existant NGCs Enter all notes Press [F10] to exit field Press [Esc] to abort CWINDOW CLICKBMEMO CFLD_DESC MDESC MVALID NFLD_KEY NSAY_COL NSAY_ROW DIALOG MOUSE RIGHTMOUSEBSAVED NFLD_BEG U2000 FNU2000 TIRION FNTIRION FLD_SAY10 NFLD_END FLD_UQS FLD_SET BMULT OBJECT NTO_READ FNALTERR OTHER FLD_POP10 FLD_DES10 CONST FNBURHAM FNCONV BRSTR CLASS SOURCE CLUBS MEMO21 NLEVEL NOTES PLSWAIT APPEND FNRLOCK ALTER MALTER FNFILE cVARREADf CONST nFLDf OPNCLF Open Cluster GLOCLF Globular Cluster DIFNBF Diffuse Nebula PLNNBF Planetary Nebula GALXYF Galaxy NONEXF Nonexistent in RNGC UVSOBF Unverified Southern Object CL+NBF Cluster with Nebulosity LMCOCF Open cluster in the LMC LMCGCF Globular Cluster in the LMC LMCDNF Diffuse Nebula in the LMC LMCCNF Cluster with Nebulosity in the LMC SMCOCF Open cluster in the SMC SMCGCF Globular Cluster in the SMC SMCDNF Diffuse Nebula in the SMC SMCCNF Cluster with Nebulosity in the SMC GX+GCF Globular Cluster in a Galaxy GX+DNF Diffuse Nebula in a Galaxy G+C+NF Cluster with Nebulosity in a Galaxy BRTNBF Bright Nebula DRKNBF Dark Nebula STAR*F Star UNDETF Undetermined CLDBLF Close Double Star ASTERF Asterism #STARF # Stars (#=1, 2, 3, 4, 5, etc.) ANDROMEDA ANTLIA APUS AQUARIUS AQUILA ARA ARIES AURIGA BOOTES CAELUM CAMELOPARDALIS CANCER CANES VENATICI CANIS MAJOR CANIS MINOR CAPRICORNUS CARINA CASSIOPEIA CENTAURUS CEPHEUS CETUS CHAMAELEON CIRCINUS COLUMBA COMA BERENICES CORONA AUSTRALIS CORONA BOREALIS CORVUS CRATER CRUX CYGNUS DELPHINUS DORADO DRACO EQUULEUS ERIDANUS FORNAX GEMINI GRUS HERCULES HOROLOGIUM HYDRA HYDRUS INDUS LACERTA LEO LEO MINOR LEPUS LIBRA LUPUS LYNX LYRA MENSA MICROSCOPIUM MONOCEROS MUSCA NORMA OCTANS OPHIUCHUS ORION PAVO PEGASUS PERSEUS PHOENIX PICTOR PISCES PISCES AUSTRINUS PUPPIS PYXIS RETICULUM SAGITTA SAGITTARIUS SCORPIUS SCULPTOR SCUTUM SERPENS SEXTANS TAURUS TELESCOPIUM TRIANGULUM AUSTRALE TRIANGULUM TUCANA URSA MAJOR URSA MINOR VELA VIRGO VOLANS VULPECULA cDESCf CVARREAD CDESC LICKMVALID CFLD_DESC CONST KEYBOARD CHR(23) PLAIN cVARREADf CONST nFLDf DO FLD_HELP WITH nFLD BAR7f OPNCLF GLOCLF DIFNBF PLNNBF GALXYF NONEXF UVSOBF CL+NBF LMCOCF LMCGCF LMCDNF LMCCNF SMCOCF SMCGCF SMCDNF SMCCNF GX+GCF GX+DNF G+C+NF BRTNBF DRKNBF STAR*F UNDETF CLDBLF ASTERF #STARF Open Cluster Globular Cluster Diffuse Nebula Planetary Nebula Galaxy Nonexistent in RNGC Unverified Southern Object Cluster with Nebulosity Open cluster in the LMC Globular Cluster in the LMC Diffuse Nebula in the LMC Cluster with Nebulosity in the LMC Open cluster in the SMC Globular Cluster in the SMC Diffuse Nebula in the SMC Cluster with Nebulosity in the SMC Globular Cluster in a Galaxy Diffuse Nebula in a Galaxy Cluster with Nebulosity in a Galaxy Bright Nebula Dark Nebula Star Undetermined Close Double Star Asterism # Stars (#=1, 2, 3, 4, 5, etc.) Press [Enter] to Select DEACTIVATE POPUP POP_UP OPNCLF GLOCLF DIFNBF PLNNBF GALXYF NONEXF UVSOBF CL+NBF LMCOCF LMCGCF LMCDNF LMCCNF SMCOCF SMCGCF SMCDNF SMCCNF GX+GCF GX+DNF G+C+NF BRTNBF DRKNBF STAR*F UNDETF CLDBLF ASTERF #STARF BAR8f ANDROMEDA ANTLIA APUS AQUARIUS AQUILA ARA ARIES AURIGA BOOTES CAELUM CAMELOPARDALIS CANCER CANES VENATICI CANIS MAJOR CANIS MINOR CAPRICORNUS CARINA CASSIOPEIA CENTAURUS CEPHEUS CETUS CHAMAELEON CIRCINUS COLUMBA COMA BERENICES CORONA AUSTRALIS CORONA BOREALIS CORVUS CRATER CRUX CYGNUS DELPHINUS DORADO DRACO EQUULEUS ERIDANUS FORNAX GEMINI GRUS HERCULES HOROLOGIUM HYDRA HYDRUS INDUS LACERTA LEO LEO MINOR LEPUS LIBRA LUPUS LYNX LYRA MENSA MICROSCOPIUM MONOCEROS MUSCA NORMA OCTANS OPHIUCHUS ORION PAVO PEGASUS PERSEUS PHOENIX PICTOR PISCES PISCES AUSTRINUS PUPPIS PYXIS RETICULUM SAGITTA SAGITTARIUS SCORPIUS SCULPTOR SCUTUM SERPENS SEXTANS TAURUS TELESCOPIUM TRIANGULUM AUSTRALE TRIANGULUM TUCANA URSA MAJOR URSA MINOR VELA VIRGO VOLANS VULPECULA Press [Enter] to Select DEACTIVATE POPUP POP_UP CVARREAD LICKFLD CFILTER_ MDUMMY NLASTKEY RREAD POP_UP DIALOG CONST NEXTKEY 99.9999 999.9999 99.99 MEMO21f MEMO21 DEFINE WINDOW MEMO21 AT nSAY_ROW,nSAY_COL SIZE nROW-nSAY_ROW-1,nCOL-nSAY_COL-1 CLOSE FLOAT GROW ZOOM TITLE " Notes " &cFONTS CWINDOW NWINDOW CKBMEMO CFONTS CFLD_DESC MDESC MVALID NSAY_COL NSAY_ROW BDISPLAY SBLANK FNFOUND MALTER FNALTER U2000 FNU2000 TIRION FNTIRION OBJECT OTHER FLD_DES10 SAY10 CONST FNCONV BRSTR CLASS SOURCE CLUBS NOTES MEMO21 FNFILE FNFONTS NLEVEL 99.9999 999.9999 99.99 CFLD_DESC OBJECT OTHER FLD_DES10 CONST D_DESC BRSTR CLASS SOURCE U2000 ETIRION CLUBS Object Name: Other Names: Type of Object: Constellation : Right Ascension : Declination : Magnitude : Magnitude of Brightest Star: Description: Size : Class: Source : # of Stars : U 2000 : Tirion 2000: Clubs: fffff NMOUSE NFLD_BEG NFLD_END Current Index not Ordered Press [Enter] for default Press [Esc] to abort DO FLD_HELP WITH nFLD DO FLD_POP11 IN SCR WITH nFLD KEYBOARD CHR(23) PLAIN UPPER(M->OBJECT)f Enter Object Name: M->OBJECTf mDUMMYf .AND.8 LOC_22$UPPER(OBJECT) .AND.8 LOC_22=RIGHT(RTRIM(UPPER(OBJECT)),LEN(LOC_22)) .AND.8 LOC_22=LEFT(LTRIM(UPPER(OBJECT)),LEN(LOC_22)) .AND.8 LOC_22=UPPER(OBJECT) Enter Other Object Name: M->OTHERf mDUMMYf .AND.8 LOC_23$UPPER(OTHER) .AND.8 LOC_23=RIGHT(RTRIM(UPPER(OTHER)),LEN(LOC_23)) .AND.8 LOC_23=LEFT(LTRIM(UPPER(OTHER)),LEN(LOC_23)) .AND.8 LOC_23=UPPER(OTHER) Enter Log Date: M->LOG_DATEf mDUMMYf .AND.8 LOC_24$DTOC(LOG_DATE,1) .AND.8 LOC_24=RIGHT(RTRIM(DTOC(LOG_DATE,1)),LEN(LOC_24)) .AND.8 LOC_24=LEFT(LTRIM(DTOC(LOG_DATE,1)),LEN(LOC_24)) .AND.8 LOC_24=DTOC(LOG_DATE,1) M->LOG_TIMEf Enter Log Time: 99:99:99 M->LOG_TIMEf mDUMMYf .AND.8 LOC_25$LEFT(LOG_TIME,5) .AND.8 LOC_25=RIGHT(RTRIM(LEFT(LOG_TIME,5)),LEN(LOC_25)) .AND.8 LOC_25=LEFT(LTRIM(LEFT(LOG_TIME,5)),LEN(LOC_25)) .AND.8 LOC_25=LEFT(LOG_TIME,5) .AND.8 LOCATE FOR &cLOCATE IF EOF() .OR. .NOT. (&cFILTER) Index Key cSEARCHf not found cFORM_SCRf DO FLD_SAY&cFORM_SCR not found -- but this is close cFORM_SCRf DO FLD_SAY&cFORM_SCR BDISPLAY BLEFT BRIGHT CDISPLAY CSEARCH MDUMMY MVALID NREC_PTR DIALOG CLOCATE BLOCATE BLOCATE2 COBJECT OBJECT LOC_22 COTHER OTHER LOC_23 LOG_DATE LOC_24 LOG_TIME LOC_25 BEXACT PLSWAIT NORDER CFILTER FNFOUND CVARREAD CVARREAD UPPER(M->OBJECT)f CSEARCH OBJECT OTHER LOG_DATE LOG_TIME M->LOG_TIMEf M->FLAGf _CHANGE _DELETE BSAVED MALTER FNALTER BEXTRA CPROGRAM FNRLOCK OBJECT COBJECT OTHER COTHER ELOG_DATE LOG_TIME ALTER MVALID CFLD_DESC MDESC MALTER FNALTER MVALID _CHANGE ALTER TIMEOUT F TIMEOUT nTO_READ8 LAST CLOSE GROW ZOOM SYSTEM Press [F10] when done Press [Esc] to abort DO FLD_HELP WITH VARREAD() DO FLD_TAB WITH -1 KEYBOARD CHR(23) PLAIN CTRL-J DO JKEY WITH (SET("NEAR") = "ON") NODELETEF CTRL-T DO FLD_DEL WITH .T. CTRL-HOME DO FLD_TAB WITH 29 DO FLD_TAB WITH 9 READERROR BROWSE FIELDS FLAG=IIF(EMPTY(GIF)," ","*"):r:W=.F. ,OBJECT:W=.F. ,OTHER:W=.F. ,LOG_DATE:V=BRV(29):P="@D":W=BRW(29) ,LOG_TIME:V=BRV(30):P="@"+"K"+" "+"99:99:99":W=BRW(30) ,NOTES:V=BRV(31) &cBROWSE WINDOW (cNAME) &cREAD WHEN BRW(0) VALID:F BRV(0) NEARz ON READERROR &cREAD_ERR CWINDOW _JDBLCLICKFLD _DESC BDISPLAY BSAVED CNAME CREAD CREAD_ERR CTITLE NFLD_BEG NFLD_END MALTER MDUMMY NLEVEL KCBROWSE BMULT FNGETENV NSCHEME WINDOW DIALOG NOTES Press [F10] when done Press [Esc] to abort DO FLD_HELP WITH nFLD DO FLD_POP12 IN SCR WITH nFLD KEYBOARD CHR(23) PLAIN MOUSE DO FLD_MOUSE WITH .F. RIGHTMOUSE DO FLD_MOUSE WITH .T. Press [Enter] for Default Press [Enter] for Default 99:99:99 99:99:99 99:99:99 Enter all notes Press [F10] to exit field Press [Esc] to abort CWINDOW CLICKBMEMO CFLD_DESC MDESC MVALID NFLD_KEY NSAY_COL NSAY_ROW DIALOG MOUSE RIGHTMOUSEBSAVED NFLD_BEG FLD_SAY12 NFLD_END FLD_UQS FLD_SET BMULT LOG_DATE NTO_READ FNALTERR LOG_TIME MEMO31 NLEVEL NOTES PLSWAIT APPEND FNRLOCK ALTER MALTER FNFILE CVARREAD CVARREAD M->LOG_TIMEf 99:99:99 MEMO31f MEMO31 DEFINE WINDOW MEMO31 AT nSAY_ROW,nSAY_COL SIZE nROW-nSAY_ROW-1,nCOL-nSAY_COL-1 CLOSE FLOAT GROW ZOOM TITLE " Notes " &cFONTS CWINDOW NWINDOW CKBMEMO CFONTS CFLD_DESC MDESC MVALID NSAY_COL NSAY_ROW BDISPLAY SBLANK FNFOUND MALTER FNALTER MOUSEGIF OBJECT COBJECT OTHER COTHER LOG_DATE LOG_TIME NOTES MEMO31 FNFILE FNFONTS NLEVEL 99:99:99 CFLD_DESC OBJECT OTHER LOG_DATE LOG_TIME Object Name: Other Names: Log Date: Log Time: NMOUSE NFLD_BEG NFLD_END 99.9999 999.9999 999.9999 999.9999 99:99:99 99.99 *HT \!\?\<Ascending;\<Descending 999.999 CFLD_DESC OBJECT OTHER FLD_DES13 CONST D_DESC Y_ROW SPLAY DDATE CTIME BRSTR CLASS OUSESOURCE U2000 TIRION CLUBS CNOTES NINDEX NORDER DDATE_1 DDATE_2 Object Name: Other Names: Type of Object: Constellation : Right Ascension : Declination : Azimuth (DDD.MMSS): Altitude (DDD.MMSS): Magnitude : Magnitude of Brightest Star: Description: Size : Class: Source : # of Stars : U 2000 : Tirion 2000: Clubs: Notes: Index File : Index Order: Starting Log Date: Ending Log Date: Numeric Factor: NMOUSE NFLD_BEG NFLD_END Press [F10] when done Press [Esc] to abort DO FLD_HELP WITH nFLD DO FLD_POP13 IN SCR WITH nFLD KEYBOARD CHR(23) PLAIN MOUSE DO FLD_MOUSE WITH .F. RIGHTMOUSE DO FLD_MOUSE WITH .T. Object Name, press [F1] for list Other known names Type of Object, press [F1] for popup mVALIDf Constellation Name, [F1] for popup mVALIDf Right Ascension (DD.MMSS) 99.9999 99.9999 mVALIDf Declination (+DD.MMSS) 999.9999 999.9999 mVALIDf Azimuth (0-360 degress) 999.9999 999.9999 mVALIDf Altitude (0-90 degress) 999.9999 999.9999 mVALIDf Enter Date for viewing Object Enter Time for viewing Object 99:99:99 99:99:99 Magnitude to nearest Tenth Magnitude of Brightest star in Cluster 99.99 99.99 Description, press [F1] for list Size in Arc Minutes (') or seconds (") Classification, press [F1] for list Source of Info., press [F1] for list Number of stars within a Cluster U 2000 Number Tirion 2000 Number Clubs looking for non-existant NGCs Enter any wildcard characters Press [F1] for popup mVALIDf Select Index Order *HT \!\?\<Ascending;\<Descending *HT \!\?\<Ascending;\<Descending Press [Enter] for Default of all Press [Enter] for Default of all Applied to all numberic input fields 999.999 999.999 CWINDOW BMEMO CFLD_DESC MDESC MVALID NFLD_KEY NSAY_COL NSAY_ROW DIALOG MOUSE RIGHTMOUSEBSAVED NFLD_BEG OPT_TXT13 OPT_SAY13 NFLD_END OBJECT FLD_SET OTHER FLD_POP13 FLD_DES13 CONST DDATE CTIME BRSTR CLASS SOURCE U2000 FNU2000 TIRION FNTIRION CLUBS CNOTES NINDEX NORDER DDATE_1 DDATE_2 cVARREADf M->TYPE M->CONST NINDEX nFLDf F OPNCLF Open Cluster GLOCLF Globular Cluster DIFNBF Diffuse Nebula PLNNBF Planetary Nebula GALXYF Galaxy NONEXF Nonexistent in RNGC UVSOBF Unverified Southern Object CL+NBF Cluster with Nebulosity LMCOCF Open cluster in the LMC LMCGCF Globular Cluster in the LMC LMCDNF Diffuse Nebula in the LMC LMCCNF Cluster with Nebulosity in the LMC SMCOCF Open cluster in the SMC SMCGCF Globular Cluster in the SMC SMCDNF Diffuse Nebula in the SMC SMCCNF Cluster with Nebulosity in the SMC GX+GCF Globular Cluster in a Galaxy GX+DNF Diffuse Nebula in a Galaxy G+C+NF Cluster with Nebulosity in a Galaxy BRTNBF Bright Nebula DRKNBF Dark Nebula STAR*F Star UNDETF Undetermined CLDBLF Close Double Star ASTERF Asterism #STARF # Stars (#=1, 2, 3, 4, 5, etc.) ANDROMEDA ANTLIA APUS AQUARIUS AQUILA ARA ARIES AURIGA BOOTES CAELUM CAMELOPARDALIS CANCER CANES VENATICI CANIS MAJOR CANIS MINOR CAPRICORNUS CARINA CASSIOPEIA CENTAURUS CEPHEUS CETUS CHAMAELEON CIRCINUS COLUMBA COMA BERENICES CORONA AUSTRALIS CORONA BOREALIS CORVUS CRATER CRUX CYGNUS DELPHINUS DORADO DRACO EQUULEUS ERIDANUS FORNAX GEMINI GRUS HERCULES HOROLOGIUM HYDRA HYDRUS INDUS LACERTA LEO LEO MINOR LEPUS LIBRA LUPUS LYNX LYRA MENSA MICROSCOPIUM MONOCEROS MUSCA NORMA OCTANS OPHIUCHUS ORION PAVO PEGASUS PERSEUS PHOENIX PICTOR PISCES PISCES AUSTRINUS PUPPIS PYXIS RETICULUM SAGITTA SAGITTARIUS SCORPIUS SCULPTOR SCUTUM SERPENS SEXTANS TAURUS TELESCOPIUM TRIANGULUM AUSTRALE TRIANGULUM TUCANA URSA MAJOR URSA MINOR VELA VIRGO VOLANS VULPECULA 0 - No Index 1 - by Object 2 - by Other 3 - by Notes 4 - by Clubs cDESCf CVARREAD CDESC MVALID CFLD_DESC CONST NINDEX KEYBOARD CHR(23) PLAIN cVARREADf M->TYPE M->CONST nINDEX nFLDf DO FLD_HELP WITH nFLD BAR34f F OPNCLF GLOCLF DIFNBF PLNNBF GALXYF NONEXF UVSOBF CL+NBF LMCOCF LMCGCF LMCDNF LMCCNF SMCOCF SMCGCF SMCDNF SMCCNF GX+GCF GX+DNF G+C+NF BRTNBF DRKNBF STAR*F UNDETF CLDBLF ASTERF #STARF Open Cluster Globular Cluster Diffuse Nebula Planetary Nebula Galaxy Nonexistent in RNGC Unverified Southern Object Cluster with Nebulosity Open cluster in the LMC Globular Cluster in the LMC Diffuse Nebula in the LMC Cluster with Nebulosity in the LMC Open cluster in the SMC Globular Cluster in the SMC Diffuse Nebula in the SMC Cluster with Nebulosity in the SMC Globular Cluster in a Galaxy Diffuse Nebula in a Galaxy Cluster with Nebulosity in a Galaxy Bright Nebula Dark Nebula Star Undetermined Close Double Star Asterism # Stars (#=1, 2, 3, 4, 5, etc.) Press [Enter] to Select DEACTIVATE POPUP POP_UP F OPNCLF GLOCLF DIFNBF PLNNBF GALXYF NONEXF UVSOBF CL+NBF LMCOCF LMCGCF LMCDNF LMCCNF SMCOCF SMCGCF SMCDNF SMCCNF GX+GCF GX+DNF G+C+NF BRTNBF DRKNBF STAR*F UNDETF CLDBLF ASTERF #STARF BAR35f ANDROMEDA ANTLIA APUS AQUARIUS AQUILA ARA ARIES AURIGA BOOTES CAELUM CAMELOPARDALIS CANCER CANES VENATICI CANIS MAJOR CANIS MINOR CAPRICORNUS CARINA CASSIOPEIA CENTAURUS CEPHEUS CETUS CHAMAELEON CIRCINUS COLUMBA COMA BERENICES CORONA AUSTRALIS CORONA BOREALIS CORVUS CRATER CRUX CYGNUS DELPHINUS DORADO DRACO EQUULEUS ERIDANUS FORNAX GEMINI GRUS HERCULES HOROLOGIUM HYDRA HYDRUS INDUS LACERTA LEO LEO MINOR LEPUS LIBRA LUPUS LYNX LYRA MENSA MICROSCOPIUM MONOCEROS MUSCA NORMA OCTANS OPHIUCHUS ORION PAVO PEGASUS PERSEUS PHOENIX PICTOR PISCES PISCES AUSTRINUS PUPPIS PYXIS RETICULUM SAGITTA SAGITTARIUS SCORPIUS SCULPTOR SCUTUM SERPENS SEXTANS TAURUS TELESCOPIUM TRIANGULUM AUSTRALE TRIANGULUM TUCANA URSA MAJOR URSA MINOR VELA VIRGO VOLANS VULPECULA Press [Enter] to Select DEACTIVATE POPUP POP_UP BAR53f \<0 - No Index \<1 - by Object \<2 - by Other \<3 - by Notes \<4 - by Clubs Press [Enter] to Select DEACTIVATE POPUP POP_UP CVARREAD CFILTER_ MDUMMY NLASTKEY RREAD BAR34 POP_UP DIALOG CONST BAR35 NINDEX USEBAR53 NEXTKEY cTIMEf : : F : : 8 99.9999 999.9999 999.9999 999.9999 99:99:99 99.99 *HT \!\?\<Ascending;\<Descending 999.999 CWINDOW NWINDOW BMEMO CFONTS CFLD_DESC MDESC MVALID NSAY_COL NSAY_ROW BDISPLAY SBLANK DDATE CTIME DDATE_1 DDATE_2 OBJECT USEOTHER BAR34 FLD_DES13 TXT13 BAR35 CONST D_DESC BRSTR CLASS SOURCE U2000 TIRION CLUBS CNOTES BAR53 NINDEX NORDER BSAVED OBJECT OTHER CONST DDATE CTIME BRSTR CLASS SOURCE USEU2000 TIRION CLUBS CNOTES NINDEX NORDER DDATE_1 DDATE_2 Current Index not Ordered Press [Enter] for default Press [Esc] to abort DO FLD_HELP WITH nFLD DO FLD_POP21 IN SCR WITH nFLD KEYBOARD CHR(23) PLAIN UPPER(M->NAME)f Enter Name: M->NAMEf mDUMMYf .AND.8 LOC_58$UPPER(NAME) .AND.8 LOC_58=RIGHT(RTRIM(UPPER(NAME)),LEN(LOC_58)) .AND.8 LOC_58=LEFT(LTRIM(UPPER(NAME)),LEN(LOC_58)) .AND.8 LOC_58=UPPER(NAME) Enter Star: M->STARf mDUMMYf .AND.8 LOC_59$UPPER(STAR) .AND.8 LOC_59=RIGHT(RTRIM(UPPER(STAR)),LEN(LOC_59)) .AND.8 LOC_59=LEFT(LTRIM(UPPER(STAR)),LEN(LOC_59)) .AND.8 LOC_59=UPPER(STAR) Enter Component: M->COMPf mDUMMYf .AND.8 LOC_60$UPPER(COMP) .AND.8 LOC_60=RIGHT(RTRIM(UPPER(COMP)),LEN(LOC_60)) .AND.8 LOC_60=LEFT(LTRIM(UPPER(COMP)),LEN(LOC_60)) .AND.8 LOC_60=UPPER(COMP) .AND.8 LOCATE FOR &cLOCATE IF EOF() .OR. .NOT. (&cFILTER) Index Key cSEARCHf not found cFORM_SCRf DO FLD_SAY&cFORM_SCR not found -- but this is close cFORM_SCRf DO FLD_SAY&cFORM_SCR BDISPLAY BLEFT BRIGHT CDISPLAY CSEARCH MDUMMY MVALID NREC_PTR DIALOG USEF2 CLOCATE BLOCATE BLOCATE2 LOC_58 LOC_59 LOC_60 BEXACT PLSWAIT NORDER CFILTER FNFOUND CVARREAD CVARREAD UPPER(M->NAME)f CSEARCH Current Index not Ordered Press [Enter] for default Press [Esc] to abort DO FLD_HELP WITH nFLD DO FLD_POP22 IN SCR WITH nFLD KEYBOARD CHR(23) PLAIN UPPER(M->STAR)f Enter Star: M->STARf mDUMMYf .AND.8 LOC_61$UPPER(STAR) .AND.8 LOC_61=RIGHT(RTRIM(UPPER(STAR)),LEN(LOC_61)) .AND.8 LOC_61=LEFT(LTRIM(UPPER(STAR)),LEN(LOC_61)) .AND.8 LOC_61=UPPER(STAR) Enter Name: M->NAMEf mDUMMYf .AND.8 LOC_62$UPPER(NAME) .AND.8 LOC_62=RIGHT(RTRIM(UPPER(NAME)),LEN(LOC_62)) .AND.8 LOC_62=LEFT(LTRIM(UPPER(NAME)),LEN(LOC_62)) .AND.8 LOC_62=UPPER(NAME) Enter Component: M->COMPf mDUMMYf .AND.8 LOC_63$UPPER(COMP) .AND.8 LOC_63=RIGHT(RTRIM(UPPER(COMP)),LEN(LOC_63)) .AND.8 LOC_63=LEFT(LTRIM(UPPER(COMP)),LEN(LOC_63)) .AND.8 LOC_63=UPPER(COMP) .AND.8 LOCATE FOR &cLOCATE IF EOF() .OR. .NOT. (&cFILTER) Index Key cSEARCHf not found cFORM_SCRf DO FLD_SAY&cFORM_SCR not found -- but this is close cFORM_SCRf DO FLD_SAY&cFORM_SCR BDISPLAY BLEFT BRIGHT CDISPLAY CSEARCH MDUMMY MVALID NREC_PTR DIALOG USEF2 CLOCATE BLOCATE BLOCATE2 LOC_61 LOC_62 LOC_63 BEXACT PLSWAIT NORDER CFILTER FNFOUND CVARREAD CVARREAD UPPER(M->STAR)f CSEARCH Current Index not Ordered Press [Enter] for default Press [Esc] to abort DO FLD_HELP WITH nFLD DO FLD_POP23 IN SCR WITH nFLD KEYBOARD CHR(23) PLAIN UPPER(M->NOTES)f M->NOTESf Enter Notes: M->NOTESf mDUMMYf .AND.8 LOC_64$UPPER(NOTES) .AND.8 LOC_64=RIGHT(RTRIM(UPPER(NOTES)),LEN(LOC_64)) .AND.8 LOC_64=LEFT(LTRIM(UPPER(NOTES)),LEN(LOC_64)) .AND.8 LOC_64=UPPER(NOTES) .AND.8 LOCATE FOR &cLOCATE IF EOF() .OR. .NOT. (&cFILTER) Index Key cSEARCHf not found cFORM_SCRf DO FLD_SAY&cFORM_SCR not found -- but this is close cFORM_SCRf DO FLD_SAY&cFORM_SCR BDISPLAY BLEFT BRIGHT CDISPLAY CSEARCH MDUMMY MVALID NREC_PTR DIALOG USEF2 CLOCATE BLOCATE BLOCATE2 NOTES LOC_64 BEXACT PLSWAIT NORDER CFILTER FNFOUND CVARREAD CVARREAD UPPER(M->NOTES)f CSEARCH NOTES M->FLAGf M->CONSTf M->U2000f M->TIRIONf _CHANGE _DELETE BSAVED MALTER FNALTER BEXTRA CPROGRAM FNRLOCK U2000 FNU2000 USETIRION FNTIRION ALTER MVALID CONST NEXTKEY _FLDfF M->CONSTf mVALIDf mVALIDf mVALIDf CFLD_DESC MDESC MALTER FNALTER FLD_POP30 MVALID CONST FNRLOCK FLD_DES30 FNBURHAM FNCONV USEFLAG U2000 FNU2000 TIRION FNTIRION _CHANGE ALTER TIMEOUT F TIMEOUT nTO_READ8 LAST CLOSE GROW ZOOM SYSTEM Press [F10] when done Press [Esc] to abort DO FLD_HELP WITH VARREAD() DO FLD_TAB WITH -1 KEYBOARD CHR(23) PLAIN CTRL-J DO JKEY WITH (SET("NEAR") = "ON") NODELETEF CTRL-T DO FLD_DEL WITH .T. CTRL-HOME DO FLD_TAB WITH 29 DO FLD_TAB WITH 9 READERROR BROWSE FIELDS FLAG=IIF(EMPTY(GIF)," ","*"):r:W=.F. ,NAME:V=BRV(66) ,STAR:V=BRV(67) ,CONST:V=BRV(68):F:P="@"+"!":W=BRW(68) ,RA:V=BRV(69):P="@"+"K"+" "+"99.9999":W=BRW(69) ,DEC:V=BRV(70):P="@"+"K"+" "+"999.9999":W=BRW(70) ,MAG1:V=BRV(71):P="@"+"K"+" "+"99.9" ,MAG2:V=BRV(72):P="@"+"K"+" "+"99.9" ,COMP:V=BRV(73):P="@"+"!" ,SEP:V=BRV(74):P="@"+"K"+" "+"999.9" ,PA:V=BRV(75):P="@"+"K"+" "+"999" ,SPEC:V=BRV(76) ,YEAR:V=BRV(77):P="@"+"K"+" "+"9999" ,ADS:V=BRV(78):P="@"+"K"+" "+"99999" ,U2000=fnU2000(M->RA,M->DEC):W=.F. ,TIRION=fnTIRION(M->RA,M->DEC):W=.F. ,CLUBS:V=BRV(81) ,NOTES:V=BRV(82) &cBROWSE WINDOW (cNAME) &cREAD WHEN BRW(0) VALID:F BRV(0) NEARz ON READERROR &cREAD_ERR CWINDOW _JDBLCLICKFLD _DESC BDISPLAY BSAVED CNAME CREAD CREAD_ERR CTITLE NFLD_BEG NFLD_END MALTER MDUMMY NLEVEL KCBROWSE BMULT FNGETENV NSCHEME WINDOW DIALOG ILTER NOTES Press [F10] when done Press [Esc] to abort DO FLD_HELP WITH nFLD DO FLD_POP30 IN SCR WITH nFLD KEYBOARD CHR(23) PLAIN MOUSE DO FLD_MOUSE WITH .F. RIGHTMOUSE DO FLD_MOUSE WITH .T. Star Name, press [F1] for list Other known names Constellation Name, [F1] for popup mVALIDf Right Ascension (DD.MMSS) 99.9999 99.9999 99.9999 mVALIDf Declination (+DD.MMSS) 999.9999 999.9999 999.9999 mVALIDf Magnitude to Primary Star Magnitude of Secondary star Components of Multiple System Separation of the Pair in arc seconds 999.9 999.9 999.9 Position Angle of Pair, N clockwise Spectrum of Primary Year of Measurement Aitken Double Star Catalog 99999 99999 99999 Clubs looking for double stars Enter all notes Press [F10] to exit field Press [Esc] to abort CWINDOW CLICKBMEMO CFLD_DESC MDESC MVALID NFLD_KEY NSAY_COL NSAY_ROW DIALOG MOUSE RIGHTMOUSEBSAVED NFLD_BEG U2000 FNU2000 TIRION FNTIRION FLD_SAY30 NFLD_END FLD_UQS FLD_SET BMULT NTO_READ FNALTERR FLD_POP30 FLD_DES30 CONST FNBURHAM FNCONV CLUBS MEMO82 NLEVEL NOTES PLSWAIT APPEND FNRLOCK ALTER MALTER FNFILE cVARREADf CONST nFLDf ANDROMEDA ANTLIA APUS AQUARIUS AQUILA ARA ARIES AURIGA BOOTES CAELUM CAMELOPARDALIS CANCER CANES VENATICI CANIS MAJOR CANIS MINOR CAPRICORNUS CARINA CASSIOPEIA CENTAURUS CEPHEUS CETUS CHAMAELEON CIRCINUS COLUMBA COMA BERENICES CORONA AUSTRALIS CORONA BOREALIS CORVUS CRATER CRUX CYGNUS DELPHINUS DORADO DRACO EQUULEUS ERIDANUS FORNAX GEMINI GRUS HERCULES HOROLOGIUM HYDRA HYDRUS INDUS LACERTA LEO LEO MINOR LEPUS LIBRA LUPUS LYNX LYRA MENSA MICROSCOPIUM MONOCEROS MUSCA NORMA OCTANS OPHIUCHUS ORION PAVO PEGASUS PERSEUS PHOENIX PICTOR PISCES PISCES AUSTRINUS PUPPIS PYXIS RETICULUM SAGITTA SAGITTARIUS SCORPIUS SCULPTOR SCUTUM SERPENS SEXTANS TAURUS TELESCOPIUM TRIANGULUM AUSTRALE TRIANGULUM TUCANA URSA MAJOR URSA MINOR VELA VIRGO VOLANS VULPECULA cDESCf CVARREAD CDESC LICKMVALID CFLD_DESC CONST KEYBOARD CHR(23) PLAIN cVARREADf CONST nFLDf DO FLD_HELP WITH nFLD BAR68f ANDROMEDA ANTLIA APUS AQUARIUS AQUILA ARA ARIES AURIGA BOOTES CAELUM CAMELOPARDALIS CANCER CANES VENATICI CANIS MAJOR CANIS MINOR CAPRICORNUS CARINA CASSIOPEIA CENTAURUS CEPHEUS CETUS CHAMAELEON CIRCINUS COLUMBA COMA BERENICES CORONA AUSTRALIS CORONA BOREALIS CORVUS CRATER CRUX CYGNUS DELPHINUS DORADO DRACO EQUULEUS ERIDANUS FORNAX GEMINI GRUS HERCULES HOROLOGIUM HYDRA HYDRUS INDUS LACERTA LEO LEO MINOR LEPUS LIBRA LUPUS LYNX LYRA MENSA MICROSCOPIUM MONOCEROS MUSCA NORMA OCTANS OPHIUCHUS ORION PAVO PEGASUS PERSEUS PHOENIX PICTOR PISCES PISCES AUSTRINUS PUPPIS PYXIS RETICULUM SAGITTA SAGITTARIUS SCORPIUS SCULPTOR SCUTUM SERPENS SEXTANS TAURUS TELESCOPIUM TRIANGULUM AUSTRALE TRIANGULUM TUCANA URSA MAJOR URSA MINOR VELA VIRGO VOLANS VULPECULA Press [Enter] to Select DEACTIVATE POPUP POP_UP CVARREAD LICKFLD CFILTER_ MDUMMY NLASTKEY RREAD CONST BAR68 POP_UP DIALOG NEXTKEY 99.9999 999.9999 999.9 99999 MEMO82f MEMO82 DEFINE WINDOW MEMO82 AT nSAY_ROW,nSAY_COL SIZE nROW-nSAY_ROW-1,nCOL-nSAY_COL-1 CLOSE FLOAT GROW ZOOM TITLE " Notes " &cFONTS CWINDOW NWINDOW CKBMEMO CFONTS CFLD_DESC MDESC MVALID NSAY_COL NSAY_ROW BDISPLAY SBLANK FNFOUND MALTER FNALTER MOUSEGIF U2000 FNU2000 TIRION FNTIRION BAR68 FLD_DES30 SAY30 CONST FNCONV CLUBS NOTES MEMO82 FNFILE FNFONTS NLEVEL 99.9999 999.9999 999.9 99999 CFLD_DESC CONST FLD_DES30 D_DESC U2000 OUSETIRION CLUBS Name: Star: Constellation : Right Ascension : Declination : Magnitude of Primary: Magnitude of Secondary: Components: Separation: Position Angle: Spectrum : Year : ADS Catalog : U 2000 : Tirion 2000: Clubs: fffff NMOUSE NFLD_BEG NFLD_END Current Index not Ordered Press [Enter] for default Press [Esc] to abort DO FLD_HELP WITH nFLD DO FLD_POP31 IN SCR WITH nFLD KEYBOARD CHR(23) PLAIN UPPER(M->NAME)f Enter Name: M->NAMEf mDUMMYf .AND.8 LOC_83$UPPER(NAME) .AND.8 LOC_83=RIGHT(RTRIM(UPPER(NAME)),LEN(LOC_83)) .AND.8 LOC_83=LEFT(LTRIM(UPPER(NAME)),LEN(LOC_83)) .AND.8 LOC_83=UPPER(NAME) Enter Star: M->STARf mDUMMYf .AND.8 LOC_84$UPPER(STAR) .AND.8 LOC_84=RIGHT(RTRIM(UPPER(STAR)),LEN(LOC_84)) .AND.8 LOC_84=LEFT(LTRIM(UPPER(STAR)),LEN(LOC_84)) .AND.8 LOC_84=UPPER(STAR) Enter Log Date: M->LOG_DATEf mDUMMYf .AND.8 LOC_85$DTOC(LOG_DATE,1) .AND.8 LOC_85=RIGHT(RTRIM(DTOC(LOG_DATE,1)),LEN(LOC_85)) .AND.8 LOC_85=LEFT(LTRIM(DTOC(LOG_DATE,1)),LEN(LOC_85)) .AND.8 LOC_85=DTOC(LOG_DATE,1) M->LOG_TIMEf Enter Log Time: 99:99:99 M->LOG_TIMEf mDUMMYf .AND.8 LOC_86$LEFT(LOG_TIME,5) .AND.8 LOC_86=RIGHT(RTRIM(LEFT(LOG_TIME,5)),LEN(LOC_86)) .AND.8 LOC_86=LEFT(LTRIM(LEFT(LOG_TIME,5)),LEN(LOC_86)) .AND.8 LOC_86=LEFT(LOG_TIME,5) .AND.8 LOCATE FOR &cLOCATE IF EOF() .OR. .NOT. (&cFILTER) Index Key cSEARCHf not found cFORM_SCRf DO FLD_SAY&cFORM_SCR not found -- but this is close cFORM_SCRf DO FLD_SAY&cFORM_SCR BDISPLAY BLEFT BRIGHT CDISPLAY CSEARCH MDUMMY MVALID NREC_PTR DIALOG USEF2 CLOCATE BLOCATE BLOCATE2 CNAME_ LOC_83 CSTAR LOC_84 LOG_DATE LOC_85 LOG_TIME LOC_86 BEXACT PLSWAIT NORDER CFILTER FNFOUND CVARREAD CVARREAD UPPER(M->NAME)f CSEARCH LOG_DATE LOG_TIME M->LOG_TIMEf M->FLAGf _CHANGE _DELETE BSAVED MALTER FNALTER BEXTRA CPROGRAM FNRLOCK CNAME_ CSTAR USELOG_DATE LOG_TIME ALTER MVALID CFLD_DESC MDESC MALTER FNALTER MVALID _CHANGE ALTER TIMEOUT F TIMEOUT nTO_READ8 LAST CLOSE GROW ZOOM SYSTEM Press [F10] when done Press [Esc] to abort DO FLD_HELP WITH VARREAD() DO FLD_TAB WITH -1 KEYBOARD CHR(23) PLAIN CTRL-J DO JKEY WITH (SET("NEAR") = "ON") NODELETEF CTRL-T DO FLD_DEL WITH .T. CTRL-HOME DO FLD_TAB WITH 29 DO FLD_TAB WITH 9 READERROR BROWSE FIELDS FLAG=IIF(EMPTY(GIF)," ","*"):r:W=.F. ,NAME:W=.F. ,STAR:W=.F. ,LOG_DATE:V=BRV(90):P="@D":W=BRW(90) ,LOG_TIME:V=BRV(91):P="@"+"K"+" "+"99:99:99":W=BRW(91) ,NOTES:V=BRV(92) &cBROWSE WINDOW (cNAME) &cREAD WHEN BRW(0) VALID:F BRV(0) NEARz ON READERROR &cREAD_ERR CWINDOW _JDBLCLICKFLD _DESC BDISPLAY BSAVED CNAME CREAD CREAD_ERR CTITLE NFLD_BEG NFLD_END MALTER MDUMMY NLEVEL KCBROWSE BMULT FNGETENV NSCHEME WINDOW DIALOG NOTES Press [F10] when done Press [Esc] to abort DO FLD_HELP WITH nFLD DO FLD_POP32 IN SCR WITH nFLD KEYBOARD CHR(23) PLAIN MOUSE DO FLD_MOUSE WITH .F. RIGHTMOUSE DO FLD_MOUSE WITH .T. Press [Enter] for Default Press [Enter] for Default 99:99:99 99:99:99 99:99:99 Enter all notes Press [F10] to exit field Press [Esc] to abort CWINDOW CLICKBMEMO CFLD_DESC MDESC MVALID NFLD_KEY NSAY_COL NSAY_ROW DIALOG MOUSE RIGHTMOUSEBSAVED NFLD_BEG FLD_SAY32 NFLD_END FLD_UQS FLD_SET BMULT LOG_DATE NTO_READ FNALTERR LOG_TIME MEMO92 NLEVEL NOTES PLSWAIT APPEND FNRLOCK ALTER MALTER FNFILE CVARREAD CVARREAD M->LOG_TIMEf 99:99:99 MEMO92f MEMO92 DEFINE WINDOW MEMO92 AT nSAY_ROW,nSAY_COL SIZE nROW-nSAY_ROW-1,nCOL-nSAY_COL-1 CLOSE FLOAT GROW ZOOM TITLE " Notes " &cFONTS CWINDOW NWINDOW CKBMEMO CFONTS CFLD_DESC MDESC MVALID NSAY_COL NSAY_ROW BDISPLAY SBLANK FNFOUND MALTER FNALTER MOUSEGIF CNAME_ CSTAR LOG_DATE LOG_TIME NOTES MEMO92 FNFILE FNFONTS NLEVEL 99:99:99 CFLD_DESC LOG_DATE LOG_TIME Name: Star: Log Date: Log Time: NMOUSE NFLD_BEG NFLD_END 99.9999 999.9999 999.9999 999.9999 99:99:99 999.9 99999 *HT \!\?\<Ascending;\<Descending 999.999 CFLD_DESC CONST FLD_DES33 D_DESC Y_COL Y_ROW DDATE CTIME MOUSEYEAR U2000 TIRION CLUBS CNOTES NINDEX NORDER DDATE_1 DDATE_2 Name: Star: Constellation : Right Ascension : Declination : Azimuth (DDD.MMSS): Altitude (DDD.MMSS): Magnitude of Primary: Magnitude of Secondary: Components: Separation: Position Angle: Spectrum : Year : ADS Catalog : U 2000 : Tirion 2000: Clubs: Notes: Index File : Index Order: Starting Log Date: Ending Log Date: Numeric Factor: NMOUSE NFLD_BEG NFLD_END Press [F10] when done Press [Esc] to abort DO FLD_HELP WITH nFLD DO FLD_POP33 IN SCR WITH nFLD KEYBOARD CHR(23) PLAIN MOUSE DO FLD_MOUSE WITH .F. RIGHTMOUSE DO FLD_MOUSE WITH .T. Star Name, press [F1] for list Other known names Constellation Name, [F1] for popup mVALIDf Right Ascension (DD.MMSS) 99.9999 99.9999 mVALIDf Declination (DD.MMSS) 999.9999 999.9999 mVALIDf Azimuth (0-360 degress) 999.9999 999.9999 mVALIDf Altitude (0-90 degress) 999.9999 999.9999 mVALIDf Enter Date for viewing Object Enter Time for viewing Object 99:99:99 99:99:99 Magnitude to nearest Tenth Magnitude of Secondary star Components of Multiple System Separation of the Pair in arc seconds 999.9 999.9 Position Angle of Pair, N clockwise Spectrum of Primary Year of Measurement Aitken Double Star Catalog 99999 99999 U 2000 Number Tirion 2000 Number Clubs looking for double stars Enter any wildcard characters Press [F1] for popup mVALIDf Select Index Order *HT \!\?\<Ascending;\<Descending *HT \!\?\<Ascending;\<Descending Press [Enter] for Default of all Press [Enter] for Default of all Applied to all numberic input fields 999.999 999.999 CWINDOW BMEMO CFLD_DESC MDESC MVALID NFLD_KEY NSAY_COL NSAY_ROW DIALOG MOUSE RIGHTMOUSEBSAVED NFLD_BEG OPT_TXT33 OPT_SAY33 NFLD_END FLD_SET FLD_POP33 FLD_DES33 CONST DDATE CTIME U2000 FNU2000 TIRION FNTIRION CLUBS CNOTES NINDEX NORDER DDATE_1 DDATE_2 cVARREADf M->CONST NINDEX nFLDf ANDROMEDA ANTLIA APUS AQUARIUS AQUILA ARA ARIES AURIGA BOOTES CAELUM CAMELOPARDALIS CANCER CANES VENATICI CANIS MAJOR CANIS MINOR CAPRICORNUS CARINA CASSIOPEIA CENTAURUS CEPHEUS CETUS CHAMAELEON CIRCINUS COLUMBA COMA BERENICES CORONA AUSTRALIS CORONA BOREALIS CORVUS CRATER CRUX CYGNUS DELPHINUS DORADO DRACO EQUULEUS ERIDANUS FORNAX GEMINI GRUS HERCULES HOROLOGIUM HYDRA HYDRUS INDUS LACERTA LEO LEO MINOR LEPUS LIBRA LUPUS LYNX LYRA MENSA MICROSCOPIUM MONOCEROS MUSCA NORMA OCTANS OPHIUCHUS ORION PAVO PEGASUS PERSEUS PHOENIX PICTOR PISCES PISCES AUSTRINUS PUPPIS PYXIS RETICULUM SAGITTA SAGITTARIUS SCORPIUS SCULPTOR SCUTUM SERPENS SEXTANS TAURUS TELESCOPIUM TRIANGULUM AUSTRALE TRIANGULUM TUCANA URSA MAJOR URSA MINOR VELA VIRGO VOLANS VULPECULA 0 - No Index 1 - by Name 2 - by Star 3 - by Notes 4 - by Clubs cDESCf CVARREAD CDESC MVALID CFLD_DESC CONST NINDEX KEYBOARD CHR(23) PLAIN cVARREADf M->CONST nINDEX nFLDf DO FLD_HELP WITH nFLD BAR95f ANDROMEDA ANTLIA APUS AQUARIUS AQUILA ARA ARIES AURIGA BOOTES CAELUM CAMELOPARDALIS CANCER CANES VENATICI CANIS MAJOR CANIS MINOR CAPRICORNUS CARINA CASSIOPEIA CENTAURUS CEPHEUS CETUS CHAMAELEON CIRCINUS COLUMBA COMA BERENICES CORONA AUSTRALIS CORONA BOREALIS CORVUS CRATER CRUX CYGNUS DELPHINUS DORADO DRACO EQUULEUS ERIDANUS FORNAX GEMINI GRUS HERCULES HOROLOGIUM HYDRA HYDRUS INDUS LACERTA LEO LEO MINOR LEPUS LIBRA LUPUS LYNX LYRA MENSA MICROSCOPIUM MONOCEROS MUSCA NORMA OCTANS OPHIUCHUS ORION PAVO PEGASUS PERSEUS PHOENIX PICTOR PISCES PISCES AUSTRINUS PUPPIS PYXIS RETICULUM SAGITTA SAGITTARIUS SCORPIUS SCULPTOR SCUTUM SERPENS SEXTANS TAURUS TELESCOPIUM TRIANGULUM AUSTRALE TRIANGULUM TUCANA URSA MAJOR URSA MINOR VELA VIRGO VOLANS VULPECULA Press [Enter] to Select DEACTIVATE POPUP POP_UP BAR114f \<0 - No Index \<1 - by Name \<2 - by Star \<3 - by Notes \<4 - by Clubs Press [Enter] to Select DEACTIVATE POPUP POP_UP CVARREAD CFILTER_ MDUMMY NLASTKEY RREAD CONST BAR95 POP_UP DIALOG NINDEX BAR114 NEXTKEY cTIMEf : : F : : 8 99.9999 999.9999 999.9999 999.9999 99:99:99 999.9 99999 *HT \!\?\<Ascending;\<Descending 999.999 CWINDOW NWINDOW BMEMO CFONTS CFLD_DESC MDESC MVALID NSAY_COL NSAY_ROW BDISPLAY SBLANK DDATE CTIME DDATE_1 DDATE_2 ESTAR BAR95 FLD_DES33 TXT33 CONST D_DESC POP33 _DES33 U2000 TIRION CLUBS CNOTES BAR114 NINDEX NORDER BSAVED CONST DDATE CTIME EU2000 TIRION CLUBS CNOTES NINDEX NORDER DDATE_1 DDATE_2 Current Index not Ordered Press [Enter] for default Press [Esc] to abort DO FLD_HELP WITH nFLD DO FLD_POP41 IN SCR WITH nFLD KEYBOARD CHR(23) PLAIN UPPER(M->NAME)f Enter Name: M->NAMEf mDUMMYf .AND.8 LOC_119$UPPER(NAME) .AND.8 LOC_119=RIGHT(RTRIM(UPPER(NAME)),LEN(LOC_119)) .AND.8 LOC_119=LEFT(LTRIM(UPPER(NAME)),LEN(LOC_119)) .AND.8 LOC_119=UPPER(NAME) Enter Star: M->STARf mDUMMYf .AND.8 LOC_120$UPPER(STAR) .AND.8 LOC_120=RIGHT(RTRIM(UPPER(STAR)),LEN(LOC_120)) .AND.8 LOC_120=LEFT(LTRIM(UPPER(STAR)),LEN(LOC_120)) .AND.8 LOC_120=UPPER(STAR) .AND.8 LOCATE FOR &cLOCATE IF EOF() .OR. .NOT. (&cFILTER) Index Key cSEARCHf not found cFORM_SCRf DO FLD_SAY&cFORM_SCR not found -- but this is close cFORM_SCRf DO FLD_SAY&cFORM_SCR BDISPLAY BLEFT BRIGHT CDISPLAY CSEARCH MDUMMY MVALID NREC_PTR DIALOG CLOCATE BLOCATE BLOCATE2 LOC_119 LOC_120 BEXACT PLSWAIT NORDER CFILTER FNFOUND CVARREAD CVARREAD UPPER(M->NAME)f CSEARCH Current Index not Ordered Press [Enter] for default Press [Esc] to abort DO FLD_HELP WITH nFLD DO FLD_POP42 IN SCR WITH nFLD KEYBOARD CHR(23) PLAIN UPPER(M->STAR)f Enter Star: M->STARf mDUMMYf .AND.8 LOC_121$UPPER(STAR) .AND.8 LOC_121=RIGHT(RTRIM(UPPER(STAR)),LEN(LOC_121)) .AND.8 LOC_121=LEFT(LTRIM(UPPER(STAR)),LEN(LOC_121)) .AND.8 LOC_121=UPPER(STAR) Enter Name: M->NAMEf mDUMMYf .AND.8 LOC_122$UPPER(NAME) .AND.8 LOC_122=RIGHT(RTRIM(UPPER(NAME)),LEN(LOC_122)) .AND.8 LOC_122=LEFT(LTRIM(UPPER(NAME)),LEN(LOC_122)) .AND.8 LOC_122=UPPER(NAME) .AND.8 LOCATE FOR &cLOCATE IF EOF() .OR. .NOT. (&cFILTER) Index Key cSEARCHf not found cFORM_SCRf DO FLD_SAY&cFORM_SCR not found -- but this is close cFORM_SCRf DO FLD_SAY&cFORM_SCR BDISPLAY BLEFT BRIGHT CDISPLAY CSEARCH MDUMMY MVALID NREC_PTR DIALOG CLOCATE BLOCATE BLOCATE2 LOC_121 LOC_122 BEXACT PLSWAIT NORDER CFILTER FNFOUND CVARREAD CVARREAD UPPER(M->STAR)f CSEARCH Current Index not Ordered Press [Enter] for default Press [Esc] to abort DO FLD_HELP WITH nFLD DO FLD_POP43 IN SCR WITH nFLD KEYBOARD CHR(23) PLAIN UPPER(M->NOTES)f M->NOTESf Enter Notes: M->NOTESf mDUMMYf .AND.8 LOC_123$UPPER(NOTES) .AND.8 LOC_123=RIGHT(RTRIM(UPPER(NOTES)),LEN(LOC_123)) .AND.8 LOC_123=LEFT(LTRIM(UPPER(NOTES)),LEN(LOC_123)) .AND.8 LOC_123=UPPER(NOTES) .AND.8 LOCATE FOR &cLOCATE IF EOF() .OR. .NOT. (&cFILTER) Index Key cSEARCHf not found cFORM_SCRf DO FLD_SAY&cFORM_SCR not found -- but this is close cFORM_SCRf DO FLD_SAY&cFORM_SCR BDISPLAY BLEFT BRIGHT CDISPLAY CSEARCH MDUMMY MVALID NREC_PTR DIALOG CLOCATE BLOCATE BLOCATE2 NOTES LOC_123 BEXACT PLSWAIT NORDER CFILTER FNFOUND CVARREAD CVARREAD UPPER(M->NOTES)f CSEARCH NOTES M->FLAGf M->TYPEf M->CONSTf M->U2000f M->TIRIONf _CHANGE _DELETE BSAVED MALTER FNALTER BEXTRA CPROGRAM FNRLOCK U2000 FNU2000 ETIRION FNTIRION ALTER MVALID NEXTKEY CONST _FLDfF M->TYPEf mVALIDf _FLDfF M->CONSTf mVALIDf mVALIDf mVALIDf CFLD_DESC MDESC MALTER FNALTER FLD_POP50 MVALID FNRLOCK FLD_DES50 CONST FNBURHAM EFNCONV U2000 FNU2000 TIRION FNTIRION _CHANGE ALTER TIMEOUT F TIMEOUT nTO_READ8 LAST CLOSE GROW ZOOM SYSTEM Press [F10] when done Press [Esc] to abort DO FLD_HELP WITH VARREAD() DO FLD_TAB WITH -1 KEYBOARD CHR(23) PLAIN CTRL-J DO JKEY WITH (SET("NEAR") = "ON") NODELETEF CTRL-T DO FLD_DEL WITH .T. CTRL-HOME DO FLD_TAB WITH 29 DO FLD_TAB WITH 9 READERROR BROWSE FIELDS FLAG=IIF(EMPTY(GIF)," ","*"):r:W=.F. ,NAME:V=BRV(125) ,STAR:V=BRV(126) ,TYPE:V=BRV(127):F:P="@"+"!":W=BRW(127) ,CONST:V=BRV(128):F:P="@"+"!":W=BRW(128) ,RA:V=BRV(129):P="@"+"K"+" "+"99.9999":W=BRW(129) ,DEC:V=BRV(130):P="@"+"K"+" "+"999.9999":W=BRW(130) ,MAG1:V=BRV(131):P="@"+"K"+" "+"99.9" ,MAG2:V=BRV(132):P="@"+"K"+" "+"99.9" ,PERIOD:V=BRV(133):P="@"+"K"+" "+"999.9999" ,SPEC:V=BRV(134) ,U2000=fnU2000(M->RA,M->DEC):W=.F. ,TIRION=fnTIRION(M->RA,M->DEC):W=.F. ,CLUBS:V=BRV(137) ,NOTES:V=BRV(138) &cBROWSE WINDOW (cNAME) &cREAD WHEN BRW(0) VALID:F BRV(0) NEARz ON READERROR &cREAD_ERR CWINDOW _JDBLCLICKFLD _DESC BDISPLAY BSAVED CNAME CREAD CREAD_ERR CTITLE NFLD_BEG NFLD_END MALTER MDUMMY NLEVEL KCBROWSE BMULT FNGETENV NSCHEME WINDOW DIALOG ILTER NOTES Press [F10] when done Press [Esc] to abort DO FLD_HELP WITH nFLD DO FLD_POP50 IN SCR WITH nFLD KEYBOARD CHR(23) PLAIN MOUSE DO FLD_MOUSE WITH .F. RIGHTMOUSE DO FLD_MOUSE WITH .T. Star Name, press [F1] for list Other known names Type of Object, press [F1] for popup mVALIDf Constellation Name, [F1] for popup mVALIDf Right Ascension (DD.MMSS) 99.9999 99.9999 99.9999 mVALIDf Declination (+DD.MMSS) 999.9999 999.9999 999.9999 mVALIDf Maximum Magnitude Minimum Magnitude Period in days 999.9999 999.9999 999.9999 Spectrum of Primary Clubs looking for double stars Enter all notes Press [F10] to exit field Press [Esc] to abort CWINDOW CLICKBMEMO CFLD_DESC MDESC MVALID NFLD_KEY NSAY_COL NSAY_ROW DIALOG MOUSE RIGHTMOUSEBSAVED NFLD_BEG U2000 FNU2000 TIRION FNTIRION FLD_SAY50 NFLD_END FLD_UQS FLD_SET BMULT NTO_READ FNALTERR FLD_POP50 FLD_DES50 CONST FNBURHAM FNCONV PERIOD CLUBS MEMO138 NLEVEL NOTES PLSWAIT APPEND FNRLOCK ALTER MALTER FNFILE cVARREADf CONST nFLDf F Unknown PUL F Pulsating Variables: CEP F Cepheids 'Delta Cephei' LPV F Long Period Variables 'Omicron Ceti' SEMI F Semi-regular Variables 'Alpha Herculis' IRR F Irregular Variables 'Betegese' CL F Cluster Variables 'RR Lyra' RV TAF RV Tauri Stars 'R Scuti' B CMAF Beta Canis Majoris 'Beta Cephei' D CEPF Dwarf Cepheids 'Delta Scutum' ERUP F Eruptive Variables: NOVAEF Novae 'GK Persei' R NOVF Reccurent Novae 'RS Ophiuchi' S NOVF Super Novae 'Ophiuchus in 1604' D NOVF Dwarf Novae 'SS Cygni' F NOVF Flare Novae 'UV Ceti R CORF Reverse Novae 'R Corna Boreais' NOV F Nova-like 'BF Cygni' E BINF Ecliping Variables: Binaries ALGOLF Algol Systems 'U Cephi' LYRIDF Lyrid Systems 'Beta Lyrae' D ECLF Dwarf Eclipsing 'W Ursa Major' ELPDLF Ellipsodial 'Zeta Andromedae' ANDROMEDA ANTLIA APUS AQUARIUS AQUILA ARA ARIES AURIGA BOOTES CAELUM CAMELOPARDALIS CANCER CANES VENATICI CANIS MAJOR CANIS MINOR CAPRICORNUS CARINA CASSIOPEIA CENTAURUS CEPHEUS CETUS CHAMAELEON CIRCINUS COLUMBA COMA BERENICES CORONA AUSTRALIS CORONA BOREALIS CORVUS CRATER CRUX CYGNUS DELPHINUS DORADO DRACO EQUULEUS ERIDANUS FORNAX GEMINI GRUS HERCULES HOROLOGIUM HYDRA HYDRUS INDUS LACERTA LEO LEO MINOR LEPUS LIBRA LUPUS LYNX LYRA MENSA MICROSCOPIUM MONOCEROS MUSCA NORMA OCTANS OPHIUCHUS ORION PAVO PEGASUS PERSEUS PHOENIX PICTOR PISCES PISCES AUSTRINUS PUPPIS PYXIS RETICULUM SAGITTA SAGITTARIUS SCORPIUS SCULPTOR SCUTUM SERPENS SEXTANS TAURUS TELESCOPIUM TRIANGULUM AUSTRALE TRIANGULUM TUCANA URSA MAJOR URSA MINOR VELA VIRGO VOLANS VULPECULA cDESCf CVARREAD CDESC LICKMVALID CFLD_DESC CONST KEYBOARD CHR(23) PLAIN cVARREADf CONST nFLDf DO FLD_HELP WITH nFLD BAR127f F PUL F CEP F LPV F SEMI F IRR F CL F RV TAF B CMAF D CEPF ERUP F NOVAEF R NOVF S NOVF D NOVF F NOVF R CORF NOV F E BINF ALGOLF LYRIDF D ECLF ELPDLF Unknown Pulsating Variables: Cepheids 'Delta Cephei' Long Period Variables 'Omicron Ceti' Semi-regular Variables 'Alpha Herculis' Irregular Variables 'Betegese' Cluster Variables 'RR Lyra' RV Tauri Stars 'R Scuti' Beta Canis Majoris 'Beta Cephei' Dwarf Cepheids 'Delta Scutum' Eruptive Variables: Novae 'GK Persei' Reccurent Novae 'RS Ophiuchi' Super Novae 'Ophiuchus in 1604' Dwarf Novae 'SS Cygni' Flare Novae 'UV Ceti Reverse Novae 'R Corna Boreais' Nova-like 'BF Cygni' Ecliping Variables: Binaries Algol Systems 'U Cephi' Lyrid Systems 'Beta Lyrae' Dwarf Eclipsing 'W Ursa Major' Ellipsodial 'Zeta Andromedae' Press [Enter] to Select DEACTIVATE POPUP POP_UP F PUL F CEP F LPV F SEMI F IRR F CL F RV TAF B CMAF D CEPF ERUP F NOVAEF R NOVF S NOVF D NOVF F NOVF R CORF NOV F E BINF ALGOLF LYRIDF D ECLF ELPDLF BAR128f ANDROMEDA ANTLIA APUS AQUARIUS AQUILA ARA ARIES AURIGA BOOTES CAELUM CAMELOPARDALIS CANCER CANES VENATICI CANIS MAJOR CANIS MINOR CAPRICORNUS CARINA CASSIOPEIA CENTAURUS CEPHEUS CETUS CHAMAELEON CIRCINUS COLUMBA COMA BERENICES CORONA AUSTRALIS CORONA BOREALIS CORVUS CRATER CRUX CYGNUS DELPHINUS DORADO DRACO EQUULEUS ERIDANUS FORNAX GEMINI GRUS HERCULES HOROLOGIUM HYDRA HYDRUS INDUS LACERTA LEO LEO MINOR LEPUS LIBRA LUPUS LYNX LYRA MENSA MICROSCOPIUM MONOCEROS MUSCA NORMA OCTANS OPHIUCHUS ORION PAVO PEGASUS PERSEUS PHOENIX PICTOR PISCES PISCES AUSTRINUS PUPPIS PYXIS RETICULUM SAGITTA SAGITTARIUS SCORPIUS SCULPTOR SCUTUM SERPENS SEXTANS TAURUS TELESCOPIUM TRIANGULUM AUSTRALE TRIANGULUM TUCANA URSA MAJOR URSA MINOR VELA VIRGO VOLANS VULPECULA Press [Enter] to Select DEACTIVATE POPUP POP_UP CVARREAD LICKFLD CFILTER_ MDUMMY NLASTKEY RREAD BAR127 POP_UP DIALOG CONST BAR128 NEXTKEY 99.9999 999.9999 999.9999 MEMO138f MEMO138 DEFINE WINDOW MEMO138 AT nSAY_ROW,nSAY_COL SIZE nROW-nSAY_ROW-1,nCOL-nSAY_COL-1 CLOSE FLOAT GROW ZOOM TITLE " Notes " &cFONTS CWINDOW NWINDOW CKBMEMO CFONTS CFLD_DESC MDESC MVALID NSAY_COL NSAY_ROW BDISPLAY SBLANK FNFOUND MALTER FNALTER U2000 FNU2000 TIRION FNTIRION BAR127 FLD_DES50 SAY50 BAR128 CONST FNCONV PERIOD CLUBS NOTES MEMO138 FNFILE FNFONTS NLEVEL 99.9999 999.9999 999.9999 CFLD_DESC FLD_DES50 CONST D_DESC PERIOD U2000 TIRION CLUBS Name: Star: Type of Object: Constellation : Right Ascension : Declination : Maximum Magnitude: Minimum Magnitude: Period: Spectrum : U 2000 : Tirion 2000: Clubs: fffff NMOUSE NFLD_BEG NFLD_END Current Index not Ordered Press [Enter] for default Press [Esc] to abort DO FLD_HELP WITH nFLD DO FLD_POP51 IN SCR WITH nFLD KEYBOARD CHR(23) PLAIN UPPER(M->NAME)f Enter Name: M->NAMEf mDUMMYf .AND.8 LOC_139$UPPER(NAME) .AND.8 LOC_139=RIGHT(RTRIM(UPPER(NAME)),LEN(LOC_139)) .AND.8 LOC_139=LEFT(LTRIM(UPPER(NAME)),LEN(LOC_139)) .AND.8 LOC_139=UPPER(NAME) Enter Star: M->STARf mDUMMYf .AND.8 LOC_140$UPPER(STAR) .AND.8 LOC_140=RIGHT(RTRIM(UPPER(STAR)),LEN(LOC_140)) .AND.8 LOC_140=LEFT(LTRIM(UPPER(STAR)),LEN(LOC_140)) .AND.8 LOC_140=UPPER(STAR) Enter Log Date: M->LOG_DATEf mDUMMYf .AND.8 LOC_141$DTOC(LOG_DATE,1) .AND.8 LOC_141=RIGHT(RTRIM(DTOC(LOG_DATE,1)),LEN(LOC_141)) .AND.8 LOC_141=LEFT(LTRIM(DTOC(LOG_DATE,1)),LEN(LOC_141)) .AND.8 LOC_141=DTOC(LOG_DATE,1) M->LOG_TIMEf Enter Log Time: 99:99:99 M->LOG_TIMEf mDUMMYf .AND.8 LOC_142$LEFT(LOG_TIME,5) .AND.8 LOC_142=RIGHT(RTRIM(LEFT(LOG_TIME,5)),LEN(LOC_142)) .AND.8 LOC_142=LEFT(LTRIM(LEFT(LOG_TIME,5)),LEN(LOC_142)) .AND.8 LOC_142=LEFT(LOG_TIME,5) .AND.8 LOCATE FOR &cLOCATE IF EOF() .OR. .NOT. (&cFILTER) Index Key cSEARCHf not found cFORM_SCRf DO FLD_SAY&cFORM_SCR not found -- but this is close cFORM_SCRf DO FLD_SAY&cFORM_SCR BDISPLAY BLEFT BRIGHT CDISPLAY CSEARCH MDUMMY MVALID NREC_PTR DIALOG CLOCATE BLOCATE BLOCATE2 CNAME_ LOC_139 CSTAR LOC_140 LOG_DATE LOC_141 LOG_TIME LOC_142 BEXACT PLSWAIT NORDER CFILTER FNFOUND CVARREAD CVARREAD UPPER(M->NAME)f CSEARCH LOG_DATE LOG_TIME M->LOG_TIMEf M->FLAGf _CHANGE _DELETE BSAVED MALTER FNALTER BEXTRA CPROGRAM FNRLOCK CNAME_ CSTAR ELOG_DATE LOG_TIME ALTER MVALID CFLD_DESC MDESC MALTER FNALTER MVALID _CHANGE ALTER TIMEOUT F TIMEOUT nTO_READ8 LAST CLOSE GROW ZOOM SYSTEM Press [F10] when done Press [Esc] to abort DO FLD_HELP WITH VARREAD() DO FLD_TAB WITH -1 KEYBOARD CHR(23) PLAIN CTRL-J DO JKEY WITH (SET("NEAR") = "ON") NODELETEF CTRL-T DO FLD_DEL WITH .T. CTRL-HOME DO FLD_TAB WITH 29 DO FLD_TAB WITH 9 READERROR BROWSE FIELDS FLAG=IIF(EMPTY(GIF)," ","*"):r:W=.F. ,NAME:W=.F. ,STAR:W=.F. ,LOG_DATE:V=BRV(146):P="@D":W=BRW(146) ,LOG_TIME:V=BRV(147):P="@"+"K"+" "+"99:99:99":W=BRW(147) ,NOTES:V=BRV(148) &cBROWSE WINDOW (cNAME) &cREAD WHEN BRW(0) VALID:F BRV(0) NEARz ON READERROR &cREAD_ERR CWINDOW _JDBLCLICKFLD _DESC BDISPLAY BSAVED CNAME CREAD CREAD_ERR CTITLE NFLD_BEG NFLD_END MALTER MDUMMY NLEVEL KCBROWSE BMULT FNGETENV NSCHEME WINDOW DIALOG C_140 NOTES Press [F10] when done Press [Esc] to abort DO FLD_HELP WITH nFLD DO FLD_POP52 IN SCR WITH nFLD KEYBOARD CHR(23) PLAIN MOUSE DO FLD_MOUSE WITH .F. RIGHTMOUSE DO FLD_MOUSE WITH .T. Press [Enter] for Default Press [Enter] for Default 99:99:99 99:99:99 99:99:99 Enter all notes Press [F10] to exit field Press [Esc] to abort CWINDOW CLICKBMEMO CFLD_DESC MDESC MVALID NFLD_KEY NSAY_COL NSAY_ROW DIALOG MOUSE RIGHTMOUSEBSAVED NFLD_BEG FLD_SAY52 NFLD_END FLD_UQS FLD_SET BMULT LOG_DATE NTO_READ FNALTERR LOG_TIME MEMO148 NLEVEL NOTES PLSWAIT APPEND FNRLOCK ALTER MALTER FNFILE CVARREAD CVARREAD M->LOG_TIMEf 99:99:99 MEMO148f MEMO148 DEFINE WINDOW MEMO148 AT nSAY_ROW,nSAY_COL SIZE nROW-nSAY_ROW-1,nCOL-nSAY_COL-1 CLOSE FLOAT GROW ZOOM TITLE " Notes " &cFONTS CWINDOW NWINDOW CKBMEMO CFONTS CFLD_DESC MDESC MVALID NSAY_COL NSAY_ROW BDISPLAY SBLANK FNFOUND MALTER FNALTER MOUSEGIF CNAME_ CSTAR LOG_DATE LOG_TIME NOTES MEMO148 FNFILE FNFONTS NLEVEL 99:99:99 CFLD_DESC LOG_DATE LOG_TIME Name: Star: Log Date: Log Time: NMOUSE NFLD_BEG NFLD_END 99.9999 999.9999 999.9999 999.9999 99:99:99 999.9999 *HT \!\?\<Ascending;\<Descending 999.999 CFLD_DESC FLD_DES53 CONST D_DESC Y_ROW SPLAY DDATE CTIME PERIOD U2000 OUSETIRION CLUBS CNOTES NINDEX NORDER DDATE_1 DDATE_2 Name: Star: Type of Object: Constellation : Right Ascension : Declination : Azimuth (DDD.MMSS): Altitude (DDD.MMSS): Maximum Magnitude: Minimum Magnitude: Period: Spectrum : U 2000 : Tirion 2000: Clubs: Notes: Index File : Index Order: Starting Log Date: Ending Log Date: Numeric Factor: NMOUSE NFLD_BEG NFLD_END Press [F10] when done Press [Esc] to abort DO FLD_HELP WITH nFLD DO FLD_POP53 IN SCR WITH nFLD KEYBOARD CHR(23) PLAIN MOUSE DO FLD_MOUSE WITH .F. RIGHTMOUSE DO FLD_MOUSE WITH .T. Star Name, press [F1] for list Other known names Type of Object, press [F1] for popup mVALIDf Constellation Name, [F1] for popup mVALIDf Right Ascension (DD.MMSS) 99.9999 99.9999 mVALIDf Declination (DD.MMSS) 999.9999 999.9999 mVALIDf Azimuth (0-360 degress) 999.9999 999.9999 mVALIDf Altitude (0-90 degress) 999.9999 999.9999 mVALIDf Enter Date for viewing Object Enter Time for viewing Object 99:99:99 99:99:99 Maximum Magnitude Minimum Magnitude Period in days 999.9999 999.9999 Spectrum of Primary U 2000 Number Tirion 2000 Number Clubs looking for double stars Enter any wildcard characters Press [F1] for popup mVALIDf Select Index Order *HT \!\?\<Ascending;\<Descending *HT \!\?\<Ascending;\<Descending Press [Enter] for Default of all Press [Enter] for Default of all Applied to all numberic input fields 999.999 999.999 CWINDOW BMEMO CFLD_DESC MDESC MVALID NFLD_KEY NSAY_COL NSAY_ROW DIALOG MOUSE RIGHTMOUSEBSAVED NFLD_BEG OPT_TXT53 OPT_SAY53 NFLD_END FLD_SET FLD_POP53 FLD_DES53 CONST DDATE CTIME PERIOD U2000 FNU2000 TIRION FNTIRION CLUBS CNOTES NINDEX NORDER DDATE_1 DDATE_2 cVARREADf M->TYPE M->CONST NINDEX nFLDf F Unknown PUL F Pulsating Variables: CEP F Cepheids 'Delta Cephei' LPV F Long Period Variables 'Omicron Ceti' SEMI F Semi-regular Variables 'Alpha Herculis' IRR F Irregular Variables 'Betegese' CL F Cluster Variables 'RR Lyra' RV TAF RV Tauri Stars 'R Scuti' B CMAF Beta Canis Majoris 'Beta Cephei' D CEPF Dwarf Cepheids 'CY Aquarii' ERUP F Eruptive Variables: NOVAEF Novae 'GK Persei' R NOVF Reccurent Novae 'RS Ophiuchi' S NOVF Super Novae 'Ophiuchus in 1604' D NOVF Dwarf Novae 'SS Cygni' F NOVF Flare Novae 'UV Ceti R CORF Reverse Novae 'R Corna Boreais' NOV F Nova-like 'BF Cygni' E BINF Ecliping Variables: Binaries ALGOLF Algol Systems 'U Cephi' LYRIDF Lyrid Systems 'Beta Lyrae' D ECLF Dwarf Eclipsing 'W Ursa Major' ELPDLF Ellipsodial 'Zeta Andromedae' ANDROMEDA ANTLIA APUS AQUARIUS AQUILA ARA ARIES AURIGA BOOTES CAELUM CAMELOPARDALIS CANCER CANES VENATICI CANIS MAJOR CANIS MINOR CAPRICORNUS CARINA CASSIOPEIA CENTAURUS CEPHEUS CETUS CHAMAELEON CIRCINUS COLUMBA COMA BERENICES CORONA AUSTRALIS CORONA BOREALIS CORVUS CRATER CRUX CYGNUS DELPHINUS DORADO DRACO EQUULEUS ERIDANUS FORNAX GEMINI GRUS HERCULES HOROLOGIUM HYDRA HYDRUS INDUS LACERTA LEO LEO MINOR LEPUS LIBRA LUPUS LYNX LYRA MENSA MICROSCOPIUM MONOCEROS MUSCA NORMA OCTANS OPHIUCHUS ORION PAVO PEGASUS PERSEUS PHOENIX PICTOR PISCES PISCES AUSTRINUS PUPPIS PYXIS RETICULUM SAGITTA SAGITTARIUS SCORPIUS SCULPTOR SCUTUM SERPENS SEXTANS TAURUS TELESCOPIUM TRIANGULUM AUSTRALE TRIANGULUM TUCANA URSA MAJOR URSA MINOR VELA VIRGO VOLANS VULPECULA 0 - No Index 1 - by Name 2 - by Star 3 - by Notes 4 - by Clubs cDESCf CVARREAD CDESC MVALID CFLD_DESC CONST NINDEX KEYBOARD CHR(23) PLAIN cVARREADf M->TYPE M->CONST nINDEX nFLDf DO FLD_HELP WITH nFLD BAR151f F PUL F CEP F LPV F SEMI F IRR F CL F RV TAF B CMAF D CEPF ERUP F NOVAEF R NOVF S NOVF D NOVF F NOVF R CORF NOV F E BINF ALGOLF LYRIDF D ECLF ELPDLF Unknown Pulsating Variables: Cepheids 'Delta Cephei' Long Period Variables 'Omicron Ceti' Semi-regular Variables 'Alpha Herculis' Irregular Variables 'Betegese' Cluster Variables 'RR Lyra' RV Tauri Stars 'R Scuti' Beta Canis Majoris 'Beta Cephei' Dwarf Cepheids 'CY Aquarii' Eruptive Variables: Novae 'GK Persei' Reccurent Novae 'RS Ophiuchi' Super Novae 'Ophiuchus in 1604' Dwarf Novae 'SS Cygni' Flare Novae 'UV Ceti Reverse Novae 'R Corna Boreais' Nova-like 'BF Cygni' Ecliping Variables: Binaries Algol Systems 'U Cephi' Lyrid Systems 'Beta Lyrae' Dwarf Eclipsing 'W Ursa Major' Ellipsodial 'Zeta Andromedae' Press [Enter] to Select DEACTIVATE POPUP POP_UP F PUL F CEP F LPV F SEMI F IRR F CL F RV TAF B CMAF D CEPF ERUP F NOVAEF R NOVF S NOVF D NOVF F NOVF R CORF NOV F E BINF ALGOLF LYRIDF D ECLF ELPDLF BAR152f ANDROMEDA ANTLIA APUS AQUARIUS AQUILA ARA ARIES AURIGA BOOTES CAELUM CAMELOPARDALIS CANCER CANES VENATICI CANIS MAJOR CANIS MINOR CAPRICORNUS CARINA CASSIOPEIA CENTAURUS CEPHEUS CETUS CHAMAELEON CIRCINUS COLUMBA COMA BERENICES CORONA AUSTRALIS CORONA BOREALIS CORVUS CRATER CRUX CYGNUS DELPHINUS DORADO DRACO EQUULEUS ERIDANUS FORNAX GEMINI GRUS HERCULES HOROLOGIUM HYDRA HYDRUS INDUS LACERTA LEO LEO MINOR LEPUS LIBRA LUPUS LYNX LYRA MENSA MICROSCOPIUM MONOCEROS MUSCA NORMA OCTANS OPHIUCHUS ORION PAVO PEGASUS PERSEUS PHOENIX PICTOR PISCES PISCES AUSTRINUS PUPPIS PYXIS RETICULUM SAGITTA SAGITTARIUS SCORPIUS SCULPTOR SCUTUM SERPENS SEXTANS TAURUS TELESCOPIUM TRIANGULUM AUSTRALE TRIANGULUM TUCANA URSA MAJOR URSA MINOR VELA VIRGO VOLANS VULPECULA Press [Enter] to Select DEACTIVATE POPUP POP_UP BAR167f \<0 - No Index \<1 - by Name \<2 - by Star \<3 - by Notes \<4 - by Clubs Press [Enter] to Select DEACTIVATE POPUP POP_UP CVARREAD CFILTER_ MDUMMY NLASTKEY RREAD BAR151 POP_UP DIALOG CONST BAR152 NINDEX USEBAR167 NEXTKEY cTIMEf : : F : : 8 99.9999 999.9999 999.9999 999.9999 99:99:99 999.9999 *HT \!\?\<Ascending;\<Descending 999.999 CWINDOW NWINDOW BMEMO CFONTS CFLD_DESC MDESC MVALID NSAY_COL NSAY_ROW BDISPLAY SBLANK DDATE CTIME DDATE_1 DDATE_2 USESTAR BAR151 FLD_DES53 TXT53 BAR152 CONST D_DESC PERIOD U2000 TIRION CLUBS CNOTES BAR167 NINDEX NORDER BSAVED CONST DDATE CTIME PERIOD U2000 TIRION CLUBS USECNOTES NINDEX NORDER DDATE_1 DDATE_2 Current Index not Ordered Press [Enter] for default Press [Esc] to abort DO FLD_HELP WITH nFLD DO FLD_POP61 IN SCR WITH nFLD KEYBOARD CHR(23) PLAIN UPPER(M->NAME)f Enter Name: M->NAMEf mDUMMYf .AND.8 LOC_172$UPPER(NAME) .AND.8 LOC_172=RIGHT(RTRIM(UPPER(NAME)),LEN(LOC_172)) .AND.8 LOC_172=LEFT(LTRIM(UPPER(NAME)),LEN(LOC_172)) .AND.8 LOC_172=UPPER(NAME) .AND.8 LOCATE FOR &cLOCATE IF EOF() .OR. .NOT. (&cFILTER) Index Key cSEARCHf not found cFORM_SCRf DO FLD_SAY&cFORM_SCR not found -- but this is close cFORM_SCRf DO FLD_SAY&cFORM_SCR BDISPLAY BLEFT BRIGHT CDISPLAY CSEARCH MDUMMY MVALID NREC_PTR DIALOG USEF2 CLOCATE BLOCATE BLOCATE2 LOC_172 BEXACT PLSWAIT NORDER CFILTER FNFOUND CVARREAD CVARREAD UPPER(M->NAME)f CSEARCH Current Index not Ordered Press [Enter] for default Press [Esc] to abort DO FLD_HELP WITH nFLD DO FLD_POP62 IN SCR WITH nFLD KEYBOARD CHR(23) PLAIN UPPER(M->SKY_TEL)f Enter Sky & Telescope #: M->SKY_TELf mDUMMYf .AND.8 LOC_173$UPPER(SKY_TEL) .AND.8 LOC_173=RIGHT(RTRIM(UPPER(SKY_TEL)),LEN(LOC_173)) .AND.8 LOC_173=LEFT(LTRIM(UPPER(SKY_TEL)),LEN(LOC_173)) .AND.8 LOC_173=UPPER(SKY_TEL) .AND.8 LOCATE FOR &cLOCATE IF EOF() .OR. .NOT. (&cFILTER) Index Key cSEARCHf not found cFORM_SCRf DO FLD_SAY&cFORM_SCR not found -- but this is close cFORM_SCRf DO FLD_SAY&cFORM_SCR BDISPLAY BLEFT BRIGHT CDISPLAY CSEARCH MDUMMY MVALID NREC_PTR DIALOG USEF2 CLOCATE BLOCATE BLOCATE2 SKY_TEL LOC_173 BEXACT PLSWAIT NORDER CFILTER FNFOUND CVARREAD CVARREAD UPPER(M->SKY_TEL)f CSEARCH SKY_TEL Current Index not Ordered Press [Enter] for default Press [Esc] to abort DO FLD_HELP WITH nFLD DO FLD_POP63 IN SCR WITH nFLD KEYBOARD CHR(23) PLAIN UPPER(M->NOTES)f M->NOTESf Enter Notes: M->NOTESf mDUMMYf .AND.8 LOC_174$UPPER(NOTES) .AND.8 LOC_174=RIGHT(RTRIM(UPPER(NOTES)),LEN(LOC_174)) .AND.8 LOC_174=LEFT(LTRIM(UPPER(NOTES)),LEN(LOC_174)) .AND.8 LOC_174=UPPER(NOTES) .AND.8 LOCATE FOR &cLOCATE IF EOF() .OR. .NOT. (&cFILTER) Index Key cSEARCHf not found cFORM_SCRf DO FLD_SAY&cFORM_SCR not found -- but this is close cFORM_SCRf DO FLD_SAY&cFORM_SCR BDISPLAY BLEFT BRIGHT CDISPLAY CSEARCH MDUMMY MVALID NREC_PTR DIALOG USEF2 CLOCATE BLOCATE BLOCATE2 NOTES LOC_174 BEXACT PLSWAIT NORDER CFILTER FNFOUND CVARREAD CVARREAD UPPER(M->NOTES)f CSEARCH NOTES M->FLAGf M->TYPEf _CHANGE _DELETE BSAVED MALTER FNALTER BEXTRA CPROGRAM FNRLOCK ALTER MVALID USENEXTKEY _FLDfF M->TYPEf mVALIDf mVALIDf Must be [E]ast or [W]est mVALIDf Must be [N]orth or [S]outh CFLD_DESC MDESC MALTER FNALTER FLD_POP70 MVALID FNRLOCK FLD_DES70 USE_CHANGE ALTER TIMEOUT F TIMEOUT nTO_READ8 LAST CLOSE GROW ZOOM SYSTEM Press [F10] when done Press [Esc] to abort DO FLD_HELP WITH VARREAD() DO FLD_TAB WITH -1 KEYBOARD CHR(23) PLAIN CTRL-J DO JKEY WITH (SET("NEAR") = "ON") NODELETEF CTRL-T DO FLD_DEL WITH .T. CTRL-HOME DO FLD_TAB WITH 29 DO FLD_TAB WITH 9 READERROR BROWSE FIELDS FLAG=IIF(EMPTY(GIF)," ","*"):r:W=.F. ,NAME:V=BRV(176) ,SKY_TEL:V=BRV(177):P="@"+"!" ,TYPE:V=BRV(178):F:P="@"+"!":W=BRW(178) ,LON:V=BRV(179):P="@"+"K"+" "+"99.9999" ,EW:V=BRV(180):P="!":W=BRW(180) ,LAT:V=BRV(181):P="@"+"K"+" "+"99.9999" ,NS:V=BRV(182):P="!":W=BRW(182) ,CLUBS:V=BRV(183) ,NOTES:V=BRV(184) &cBROWSE WINDOW (cNAME) &cREAD WHEN BRW(0) VALID:F BRV(0) NEARz ON READERROR &cREAD_ERR CWINDOW _JDBLCLICKFLD _DESC BDISPLAY BSAVED CNAME CREAD CREAD_ERR CTITLE NFLD_BEG NFLD_END MALTER MDUMMY NLEVEL KCBROWSE BMULT FNGETENV NSCHEME WINDOW DIALOG ILTER NOTES Press [F10] when done Press [Esc] to abort DO FLD_HELP WITH nFLD DO FLD_POP70 IN SCR WITH nFLD KEYBOARD CHR(23) PLAIN MOUSE DO FLD_MOUSE WITH .F. RIGHTMOUSE DO FLD_MOUSE WITH .T. Object Name Sky & Telescope Guide # Type of Object, press [F1] for popup mVALIDf Lunar Longitude (DD.MMSS) 99.9999 99.9999 99.9999 [E]ast or [W]est mVALIDf Must be [E]ast or [W]est Lunar Latitude (DD.MMSS) 99.9999 99.9999 99.9999 [N]orth or [S]outh mVALIDf Must be [N]orth or [S]outh Clubs looking for lunar objects Enter all notes Press [F10] to exit field Press [Esc] to abort CWINDOW CLICKBMEMO CFLD_DESC MDESC MVALID NFLD_KEY NSAY_COL NSAY_ROW DIALOG MOUSE RIGHTMOUSEBSAVED NFLD_BEG FLD_SAY70 NFLD_END FLD_UQS FLD_SET BMULT NTO_READ FNALTERR SKY_TEL FLD_POP70 FLD_DES70 CLUBS MEMO184 NLEVEL NOTES PLSWAIT APPEND FNRLOCK ALTER MALTER FNFILE cVARREADf nFLDf LC F Lunar Crater LM F Lunar Mountains LR F Lunar Rille LV F Lunar Valley MARE F Lunar Mare cDESCf CVARREAD CDESC LICKMVALID CFLD_DESC KEYBOARD CHR(23) PLAIN cVARREADf nFLDf DO FLD_HELP WITH nFLD BAR178f LC F LM F LR F LV F MARE F Lunar Crater Lunar Mountains Lunar Rille Lunar Valley Lunar Mare Press [Enter] to Select DEACTIVATE POPUP POP_UP LC F LM F LR F LV F MARE F CVARREAD LICKFLD CFILTER_ MDUMMY NLASTKEY RREAD BAR178 POP_UP DIALOG NEXTKEY 99.9999 99.9999 MEMO184f MEMO184 DEFINE WINDOW MEMO184 AT nSAY_ROW,nSAY_COL SIZE nROW-nSAY_ROW-1,nCOL-nSAY_COL-1 CLOSE FLOAT GROW ZOOM TITLE " Notes " &cFONTS CWINDOW NWINDOW CKBMEMO CFONTS CFLD_DESC MDESC MVALID NSAY_COL NSAY_ROW BDISPLAY SBLANK FNFOUND MALTER FNALTER MOUSEGIF SKY_TEL BAR178 FLD_DES70 SAY70 _DESC CLUBS NOTES MEMO184 FNFILE FNFONTS NLEVEL 99.9999 99.9999 CFLD_DESC SKY_TEL FLD_DES70 _DESC Y_COL SPLAY CLUBS Name: Sky & Telescope #: Type of Object: Lunar Longitude : Lunar Latitude : Clubs: fffff NMOUSE NFLD_BEG NFLD_END Current Index not Ordered Press [Enter] for default Press [Esc] to abort DO FLD_HELP WITH nFLD DO FLD_POP71 IN SCR WITH nFLD KEYBOARD CHR(23) PLAIN UPPER(M->NAME)f Enter Name: M->NAMEf mDUMMYf .AND.8 LOC_185$UPPER(NAME) .AND.8 LOC_185=RIGHT(RTRIM(UPPER(NAME)),LEN(LOC_185)) .AND.8 LOC_185=LEFT(LTRIM(UPPER(NAME)),LEN(LOC_185)) .AND.8 LOC_185=UPPER(NAME) Enter Sky & Telescope #: M->SKY_TELf mDUMMYf .AND.8 LOC_186$UPPER(SKY_TEL) .AND.8 LOC_186=RIGHT(RTRIM(UPPER(SKY_TEL)),LEN(LOC_186)) .AND.8 LOC_186=LEFT(LTRIM(UPPER(SKY_TEL)),LEN(LOC_186)) .AND.8 LOC_186=UPPER(SKY_TEL) Enter Log Date: M->LOG_DATEf mDUMMYf .AND.8 LOC_187$DTOC(LOG_DATE,1) .AND.8 LOC_187=RIGHT(RTRIM(DTOC(LOG_DATE,1)),LEN(LOC_187)) .AND.8 LOC_187=LEFT(LTRIM(DTOC(LOG_DATE,1)),LEN(LOC_187)) .AND.8 LOC_187=DTOC(LOG_DATE,1) M->LOG_TIMEf Enter Log Time: 99:99:99 M->LOG_TIMEf mDUMMYf .AND.8 LOC_188$LEFT(LOG_TIME,5) .AND.8 LOC_188=RIGHT(RTRIM(LEFT(LOG_TIME,5)),LEN(LOC_188)) .AND.8 LOC_188=LEFT(LTRIM(LEFT(LOG_TIME,5)),LEN(LOC_188)) .AND.8 LOC_188=LEFT(LOG_TIME,5) .AND.8 LOCATE FOR &cLOCATE IF EOF() .OR. .NOT. (&cFILTER) Index Key cSEARCHf not found cFORM_SCRf DO FLD_SAY&cFORM_SCR not found -- but this is close cFORM_SCRf DO FLD_SAY&cFORM_SCR BDISPLAY BLEFT BRIGHT CDISPLAY CSEARCH MDUMMY MVALID NREC_PTR DIALOG USEF2 CLOCATE BLOCATE BLOCATE2 CNAME_ LOC_185 CSKY_TEL SKY_TEL LOC_186 LOG_DATE LOC_187 LOG_TIME LOC_188 BEXACT PLSWAIT NORDER CFILTER FNFOUND CVARREAD CVARREAD UPPER(M->NAME)f CSEARCH SKY_TEL LOG_DATE LOG_TIME M->LOG_TIMEf M->FLAGf _CHANGE _DELETE BSAVED MALTER FNALTER BEXTRA CPROGRAM FNRLOCK CNAME_ SKY_TEL CSKY_TEL ELOG_DATE LOG_TIME ALTER MVALID CFLD_DESC MDESC MALTER FNALTER MVALID _CHANGE ALTER TIMEOUT F TIMEOUT nTO_READ8 LAST CLOSE GROW ZOOM SYSTEM Press [F10] when done Press [Esc] to abort DO FLD_HELP WITH VARREAD() DO FLD_TAB WITH -1 KEYBOARD CHR(23) PLAIN CTRL-J DO JKEY WITH (SET("NEAR") = "ON") NODELETEF CTRL-T DO FLD_DEL WITH .T. CTRL-HOME DO FLD_TAB WITH 29 DO FLD_TAB WITH 9 READERROR BROWSE FIELDS FLAG=IIF(EMPTY(GIF)," ","*"):r:W=.F. ,NAME:W=.F. ,SKY_TEL:W=.F. ,LOG_DATE:V=BRV(192):P="@D":W=BRW(192) ,LOG_TIME:V=BRV(193):P="@"+"K"+" "+"99:99:99":W=BRW(193) ,NOTES:V=BRV(194) &cBROWSE WINDOW (cNAME) &cREAD WHEN BRW(0) VALID:F BRV(0) NEARz ON READERROR &cREAD_ERR CWINDOW _JDBLCLICKFLD _DESC BDISPLAY BSAVED CNAME CREAD CREAD_ERR CTITLE NFLD_BEG NFLD_END MALTER MDUMMY NLEVEL KCBROWSE BMULT FNGETENV NSCHEME WINDOW DIALOG C_186 NOTES Press [F10] when done Press [Esc] to abort DO FLD_HELP WITH nFLD DO FLD_POP72 IN SCR WITH nFLD KEYBOARD CHR(23) PLAIN MOUSE DO FLD_MOUSE WITH .F. RIGHTMOUSE DO FLD_MOUSE WITH .T. Press [Enter] for Default Press [Enter] for Default 99:99:99 99:99:99 99:99:99 Enter all notes Press [F10] to exit field Press [Esc] to abort CWINDOW CLICKBMEMO CFLD_DESC MDESC MVALID NFLD_KEY NSAY_COL NSAY_ROW DIALOG MOUSE RIGHTMOUSEBSAVED NFLD_BEG FLD_SAY72 NFLD_END FLD_UQS FLD_SET BMULT LOG_DATE NTO_READ FNALTERR LOG_TIME MEMO194 NLEVEL NOTES PLSWAIT APPEND FNRLOCK ALTER MALTER FNFILE CVARREAD CVARREAD M->LOG_TIMEf 99:99:99 MEMO194f MEMO194 DEFINE WINDOW MEMO194 AT nSAY_ROW,nSAY_COL SIZE nROW-nSAY_ROW-1,nCOL-nSAY_COL-1 CLOSE FLOAT GROW ZOOM TITLE " Notes " &cFONTS CWINDOW NWINDOW CKBMEMO CFONTS CFLD_DESC MDESC MVALID NSAY_COL NSAY_ROW BDISPLAY SBLANK FNFOUND MALTER FNALTER MOUSEGIF CNAME_ SKY_TEL CSKY_TEL LOG_DATE LOG_TIME NOTES MEMO194 FNFILE FNFONTS NLEVEL 99:99:99 CFLD_DESC SKY_TEL LOG_DATE LOG_TIME Name: Sky & Telescope #: Log Date: Log Time: NMOUSE NFLD_BEG NFLD_END 99.9999 99.9999 *HT \!\?\<Ascending;\<Descending 999.999 CFLD_DESC SKY_TEL FLD_DES73 _DESC Y_ROW CLUBS CNOTES NINDEX NORDER DDATE_1 DDATE_2 Name: Sky & Telescope #: Type of Object: Lunar Longitude : Lunar Latitude : Clubs: Notes: Index File : Index Order: Starting Log Date: Ending Log Date: Numeric Factor: NMOUSE NFLD_BEG NFLD_END Press [F10] when done Press [Esc] to abort DO FLD_HELP WITH nFLD DO FLD_POP73 IN SCR WITH nFLD KEYBOARD CHR(23) PLAIN MOUSE DO FLD_MOUSE WITH .F. RIGHTMOUSE DO FLD_MOUSE WITH .T. Object Name Sky & Telescope Guide # Type of Object mVALIDf Lunar Longitude (DD.MMSS) 99.9999 99.9999 [E]ast or [W]est mVALIDf Lunar Latitude (DD.MMSS) 99.9999 99.9999 [N]orth or [S]outh mVALIDf Clubs looking for lunar objects Enter any wildcard characters Press [F1] for popup mVALIDf Select Index Order *HT \!\?\<Ascending;\<Descending *HT \!\?\<Ascending;\<Descending Press [Enter] for Default of all Press [Enter] for Default of all Applied to all numberic input fields 999.999 999.999 CWINDOW BMEMO CFLD_DESC MDESC MVALID NFLD_KEY NSAY_COL NSAY_ROW DIALOG MOUSE RIGHTMOUSEBSAVED NFLD_BEG OPT_TXT73 OPT_SAY73 NFLD_END FLD_SET SKY_TEL FLD_POP73 FLD_DES73 CLUBS CNOTES NINDEX NORDER DDATE_1 DDATE_2 cVARREADf M->TYPE NINDEX nFLDf F LC F Lunar Crater LM F Lunar Mountains LR F Lunar Rille LV F Lunar Valley MARE F Lunar Mare 0 - No Index 1 - by Name 2 - by Sky & Telescope Number 3 - by Notes 4 - by Clubs cDESCf CVARREAD CDESC MVALID CFLD_DESC NINDEX KEYBOARD CHR(23) PLAIN cVARREADf M->TYPE nINDEX nFLDf DO FLD_HELP WITH nFLD BAR197f F LC F LM F LR F LV F MARE F Lunar Crater Lunar Mountains Lunar Rille Lunar Valley Lunar Mare Press [Enter] to Select DEACTIVATE POPUP POP_UP F LC F LM F LR F LV F MARE F BAR204f \<0 - No Index \<1 - by Name \<2 - by Sky & Telescope Number \<3 - by Notes \<4 - by Clubs Press [Enter] to Select DEACTIVATE POPUP POP_UP CVARREAD CFILTER_ MDUMMY NLASTKEY RREAD BAR197 POP_UP DIALOG NINDEX BAR204 NEXTKEY 99.9999 99.9999 *HT \!\?\<Ascending;\<Descending 999.999 CWINDOW NWINDOW BMEMO CFONTS CFLD_DESC MDESC MVALID NSAY_COL NSAY_ROW BDISPLAY SBLANK DDATE_1 DDATE_2 SKY_TEL BAR197 EFLD_DES73 _DESC SAY73 D_END CLUBS CNOTES BAR204 NINDEX NORDER BSAVED SKY_TEL CLUBS CNOTES NINDEX NORDER DDATE_1 DDATE_2 Current Index not Ordered Press [Enter] for default Press [Esc] to abort DO FLD_HELP WITH nFLD DO FLD_POP81 IN SCR WITH nFLD KEYBOARD CHR(23) PLAIN UPPER(M->OBJECT)f Enter Object Name: M->OBJECTf mDUMMYf .AND.8 LOC_209$UPPER(OBJECT) .AND.8 LOC_209=RIGHT(RTRIM(UPPER(OBJECT)),LEN(LOC_209)) .AND.8 LOC_209=LEFT(LTRIM(UPPER(OBJECT)),LEN(LOC_209)) .AND.8 LOC_209=UPPER(OBJECT) .AND.8 LOCATE FOR &cLOCATE IF EOF() .OR. .NOT. (&cFILTER) Index Key cSEARCHf not found cFORM_SCRf DO FLD_SAY&cFORM_SCR not found -- but this is close cFORM_SCRf DO FLD_SAY&cFORM_SCR BDISPLAY BLEFT BRIGHT CDISPLAY CSEARCH MDUMMY MVALID NREC_PTR DIALOG _DES73 CLOCATE BLOCATE BLOCATE2 OBJECT LOC_209 BEXACT PLSWAIT NORDER CFILTER FNFOUND CVARREAD CVARREAD UPPER(M->OBJECT)f CSEARCH OBJECT Current Index not Ordered Press [Enter] for default Press [Esc] to abort DO FLD_HELP WITH nFLD DO FLD_POP82 IN SCR WITH nFLD KEYBOARD CHR(23) PLAIN UPPER(M->OTHER)f Enter Other Object Name: M->OTHERf mDUMMYf .AND.8 LOC_210$UPPER(OTHER) .AND.8 LOC_210=RIGHT(RTRIM(UPPER(OTHER)),LEN(LOC_210)) .AND.8 LOC_210=LEFT(LTRIM(UPPER(OTHER)),LEN(LOC_210)) .AND.8 LOC_210=UPPER(OTHER) .AND.8 LOCATE FOR &cLOCATE IF EOF() .OR. .NOT. (&cFILTER) Index Key cSEARCHf not found cFORM_SCRf DO FLD_SAY&cFORM_SCR not found -- but this is close cFORM_SCRf DO FLD_SAY&cFORM_SCR BDISPLAY BLEFT BRIGHT CDISPLAY CSEARCH MDUMMY MVALID NREC_PTR DIALOG _DES73 CLOCATE BLOCATE BLOCATE2 OTHER LOC_210 BEXACT PLSWAIT NORDER CFILTER FNFOUND CVARREAD CVARREAD UPPER(M->OTHER)f CSEARCH OTHER Current Index not Ordered Press [Enter] for default Press [Esc] to abort DO FLD_HELP WITH nFLD DO FLD_POP83 IN SCR WITH nFLD KEYBOARD CHR(23) PLAIN UPPER(M->NOTES)f M->NOTESf Enter Notes: M->NOTESf mDUMMYf .AND.8 LOC_211$UPPER(NOTES) .AND.8 LOC_211=RIGHT(RTRIM(UPPER(NOTES)),LEN(LOC_211)) .AND.8 LOC_211=LEFT(LTRIM(UPPER(NOTES)),LEN(LOC_211)) .AND.8 LOC_211=UPPER(NOTES) .AND.8 LOCATE FOR &cLOCATE IF EOF() .OR. .NOT. (&cFILTER) Index Key cSEARCHf not found cFORM_SCRf DO FLD_SAY&cFORM_SCR not found -- but this is close cFORM_SCRf DO FLD_SAY&cFORM_SCR BDISPLAY BLEFT BRIGHT CDISPLAY CSEARCH MDUMMY MVALID NREC_PTR DIALOG _DES73 CLOCATE BLOCATE BLOCATE2 NOTES LOC_211 BEXACT PLSWAIT NORDER CFILTER FNFOUND CVARREAD CVARREAD UPPER(M->NOTES)f CSEARCH NOTES M->FLAGf M->TYPEf _CHANGE _DELETE BSAVED MALTER FNALTER BEXTRA CPROGRAM FNRLOCK ALTER MVALID ENEXTKEY _FLDfF M->TYPEf mVALIDf CFLD_DESC MDESC MALTER FNALTER FLD_POP90 MVALID FNRLOCK FLD_DES90 _CHANGE ALTER TIMEOUT F TIMEOUT nTO_READ8 LAST CLOSE GROW ZOOM SYSTEM Press [F10] when done Press [Esc] to abort DO FLD_HELP WITH VARREAD() DO FLD_TAB WITH -1 KEYBOARD CHR(23) PLAIN CTRL-J DO JKEY WITH (SET("NEAR") = "ON") NODELETEF CTRL-T DO FLD_DEL WITH .T. CTRL-HOME DO FLD_TAB WITH 29 DO FLD_TAB WITH 9 READERROR BROWSE FIELDS FLAG=IIF(EMPTY(GIF)," ","*"):r:W=.F. ,OBJECT:V=BRV(213) ,OTHER:V=BRV(214) ,TYPE:V=BRV(215):F:P="@"+"!":W=BRW(215) ,CLUBS:V=BRV(216) ,NOTES:V=BRV(217) &cBROWSE WINDOW (cNAME) &cREAD WHEN BRW(0) VALID:F BRV(0) NEARz ON READERROR &cREAD_ERR CWINDOW _JDBLCLICKFLD _DESC BDISPLAY BSAVED CNAME CREAD CREAD_ERR CTITLE NFLD_BEG NFLD_END MALTER MDUMMY NLEVEL KCBROWSE BMULT FNGETENV NSCHEME WINDOW DIALOG ILTER NOTES Press [F10] when done Press [Esc] to abort DO FLD_HELP WITH nFLD DO FLD_POP90 IN SCR WITH nFLD KEYBOARD CHR(23) PLAIN MOUSE DO FLD_MOUSE WITH .F. RIGHTMOUSE DO FLD_MOUSE WITH .T. Object Name Other known names Type of Object, press [F1] for popup mVALIDf Clubs looking for celestial objects Enter all notes Press [F10] to exit field Press [Esc] to abort CWINDOW CLICKBMEMO CFLD_DESC MDESC MVALID NFLD_KEY NSAY_COL NSAY_ROW DIALOG MOUSE RIGHTMOUSEBSAVED NFLD_BEG FLD_SAY90 NFLD_END FLD_UQS FLD_SET BMULT OBJECT NTO_READ FNALTERR OTHER FLD_POP90 FLD_DES90 CLUBS MEMO217 NLEVEL NOTES PLSWAIT APPEND FNRLOCK ALTER MALTER FNFILE cVARREADf nFLDf F PL F Planet SAT F Satellite/Moon AST F Asteriod COMETF Comet cDESCf CVARREAD CDESC LICKMVALID CFLD_DESC KEYBOARD CHR(23) PLAIN cVARREADf nFLDf DO FLD_HELP WITH nFLD BAR215f F PL F SAT F AST F COMETF Planet Satellite/Moon Asteriod Comet Press [Enter] to Select DEACTIVATE POPUP POP_UP F PL F SAT F AST F COMETF CVARREAD LICKFLD CFILTER_ MDUMMY NLASTKEY RREAD BAR215 POP_UP DIALOG NEXTKEY MEMO217f MEMO217 DEFINE WINDOW MEMO217 AT nSAY_ROW,nSAY_COL SIZE nROW-nSAY_ROW-1,nCOL-nSAY_COL-1 CLOSE FLOAT GROW ZOOM TITLE " Notes " &cFONTS CWINDOW NWINDOW CKBMEMO CFONTS CFLD_DESC MDESC MVALID NSAY_COL NSAY_ROW BDISPLAY SBLANK FNFOUND MALTER FNALTER MOUSEGIF OBJECT OTHER BAR215 FLD_DES90 SAY90 CLUBS NOTES MEMO217 FNFILE FNFONTS NLEVEL CFLD_DESC OBJECT OTHER FLD_DES90 CLUBS Object Name: Other Names: Type of Object: Clubs: NMOUSE NFLD_BEG NFLD_END Current Index not Ordered Press [Enter] for default Press [Esc] to abort DO FLD_HELP WITH nFLD DO FLD_POP91 IN SCR WITH nFLD KEYBOARD CHR(23) PLAIN UPPER(M->OBJECT)f Enter Object Name: M->OBJECTf mDUMMYf .AND.8 LOC_218$UPPER(OBJECT) .AND.8 LOC_218=RIGHT(RTRIM(UPPER(OBJECT)),LEN(LOC_218)) .AND.8 LOC_218=LEFT(LTRIM(UPPER(OBJECT)),LEN(LOC_218)) .AND.8 LOC_218=UPPER(OBJECT) Enter Other Object Name: M->OTHERf mDUMMYf .AND.8 LOC_219$UPPER(OTHER) .AND.8 LOC_219=RIGHT(RTRIM(UPPER(OTHER)),LEN(LOC_219)) .AND.8 LOC_219=LEFT(LTRIM(UPPER(OTHER)),LEN(LOC_219)) .AND.8 LOC_219=UPPER(OTHER) Enter Log Date: M->LOG_DATEf mDUMMYf .AND.8 LOC_220$DTOC(LOG_DATE,1) .AND.8 LOC_220=RIGHT(RTRIM(DTOC(LOG_DATE,1)),LEN(LOC_220)) .AND.8 LOC_220=LEFT(LTRIM(DTOC(LOG_DATE,1)),LEN(LOC_220)) .AND.8 LOC_220=DTOC(LOG_DATE,1) M->LOG_TIMEf Enter Log Time: 99:99:99 M->LOG_TIMEf mDUMMYf .AND.8 LOC_221$LEFT(LOG_TIME,5) .AND.8 LOC_221=RIGHT(RTRIM(LEFT(LOG_TIME,5)),LEN(LOC_221)) .AND.8 LOC_221=LEFT(LTRIM(LEFT(LOG_TIME,5)),LEN(LOC_221)) .AND.8 LOC_221=LEFT(LOG_TIME,5) .AND.8 LOCATE FOR &cLOCATE IF EOF() .OR. .NOT. (&cFILTER) Index Key cSEARCHf not found cFORM_SCRf DO FLD_SAY&cFORM_SCR not found -- but this is close cFORM_SCRf DO FLD_SAY&cFORM_SCR BDISPLAY BLEFT BRIGHT CDISPLAY CSEARCH MDUMMY MVALID NREC_PTR DIALOG USEF2 CLOCATE BLOCATE BLOCATE2 COBJECT OBJECT LOC_218 COTHER OTHER LOC_219 LOG_DATE LOC_220 LOG_TIME LOC_221 BEXACT PLSWAIT NORDER CFILTER FNFOUND CVARREAD CVARREAD UPPER(M->OBJECT)f CSEARCH OBJECT OTHER LOG_DATE LOG_TIME M->LOG_TIMEf M->FLAGf _CHANGE _DELETE BSAVED MALTER FNALTER BEXTRA CPROGRAM FNRLOCK OBJECT COBJECT OTHER COTHER USELOG_DATE LOG_TIME ALTER MVALID CFLD_DESC MDESC MALTER FNALTER MVALID _CHANGE ALTER TIMEOUT F TIMEOUT nTO_READ8 LAST CLOSE GROW ZOOM SYSTEM Press [F10] when done Press [Esc] to abort DO FLD_HELP WITH VARREAD() DO FLD_TAB WITH -1 KEYBOARD CHR(23) PLAIN CTRL-J DO JKEY WITH (SET("NEAR") = "ON") NODELETEF CTRL-T DO FLD_DEL WITH .T. CTRL-HOME DO FLD_TAB WITH 29 DO FLD_TAB WITH 9 READERROR BROWSE FIELDS FLAG=IIF(EMPTY(GIF)," ","*"):r:W=.F. ,OBJECT:W=.F. ,OTHER:W=.F. ,LOG_DATE:V=BRV(225):P="@D":W=BRW(225) ,LOG_TIME:V=BRV(226):P="@"+"K"+" "+"99:99:99":W=BRW(226) ,NOTES:V=BRV(227) &cBROWSE WINDOW (cNAME) &cREAD WHEN BRW(0) VALID:F BRV(0) NEARz ON READERROR &cREAD_ERR CWINDOW _JDBLCLICKFLD _DESC BDISPLAY BSAVED CNAME CREAD CREAD_ERR CTITLE NFLD_BEG NFLD_END MALTER MDUMMY NLEVEL KCBROWSE BMULT FNGETENV NSCHEME WINDOW DIALOG C_219 NOTES Press [F10] when done Press [Esc] to abort DO FLD_HELP WITH nFLD DO FLD_POP92 IN SCR WITH nFLD KEYBOARD CHR(23) PLAIN MOUSE DO FLD_MOUSE WITH .F. RIGHTMOUSE DO FLD_MOUSE WITH .T. Press [Enter] for Default Press [Enter] for Default 99:99:99 99:99:99 99:99:99 Enter all notes Press [F10] to exit field Press [Esc] to abort CWINDOW CLICKBMEMO CFLD_DESC MDESC MVALID NFLD_KEY NSAY_COL NSAY_ROW DIALOG MOUSE RIGHTMOUSEBSAVED NFLD_BEG FLD_SAY92 NFLD_END FLD_UQS FLD_SET BMULT LOG_DATE NTO_READ FNALTERR LOG_TIME MEMO227 NLEVEL NOTES PLSWAIT APPEND FNRLOCK ALTER MALTER FNFILE CVARREAD CVARREAD M->LOG_TIMEf 99:99:99 MEMO227f MEMO227 DEFINE WINDOW MEMO227 AT nSAY_ROW,nSAY_COL SIZE nROW-nSAY_ROW-1,nCOL-nSAY_COL-1 CLOSE FLOAT GROW ZOOM TITLE " Notes " &cFONTS CWINDOW NWINDOW CKBMEMO CFONTS CFLD_DESC MDESC MVALID NSAY_COL NSAY_ROW BDISPLAY SBLANK FNFOUND MALTER FNALTER MOUSEGIF OBJECT COBJECT OTHER COTHER LOG_DATE LOG_TIME NOTES MEMO227 FNFILE FNFONTS NLEVEL 99:99:99 CFLD_DESC OBJECT OTHER LOG_DATE LOG_TIME Object Name: Other Names: Log Date: Log Time: NMOUSE NFLD_BEG NFLD_END *HT \!\?\<Ascending;\<Descending 999.999 CFLD_DESC OBJECT OTHER FLD_DES93 CLUBS CNOTES NINDEX NORDER DDATE_1 DDATE_2 Object Name: Other Names: Type of Object: Clubs: Notes: Index File : Index Order: Starting Log Date: Ending Log Date: Numeric Factor: NMOUSE NFLD_BEG NFLD_END Press [F10] when done Press [Esc] to abort DO FLD_HELP WITH nFLD DO FLD_POP93 IN SCR WITH nFLD KEYBOARD CHR(23) PLAIN MOUSE DO FLD_MOUSE WITH .F. RIGHTMOUSE DO FLD_MOUSE WITH .T. Object Name Other known names Type of Object, press [F1] for popup mVALIDf Clubs looking for celestial objects Enter any wildcard characters Press [F1] for popup mVALIDf Select Index Order *HT \!\?\<Ascending;\<Descending *HT \!\?\<Ascending;\<Descending Press [Enter] for Default of all Press [Enter] for Default of all Applied to all numberic input fields 999.999 999.999 CWINDOW BMEMO CFLD_DESC MDESC MVALID NFLD_KEY NSAY_COL NSAY_ROW DIALOG MOUSE RIGHTMOUSEBSAVED NFLD_BEG OPT_TXT93 OPT_SAY93 NFLD_END OBJECT FLD_SET OTHER FLD_POP93 FLD_DES93 CLUBS CNOTES NINDEX NORDER DDATE_1 DDATE_2 cVARREADf M->TYPE NINDEX nFLDf F PL F Planet SAT F Satellite/Moon AST F Asteriod COMETF Comet 0 - No Index 1 - by Object 2 - by Other 3 - by Notes 4 - by Clubs cDESCf CVARREAD CDESC MVALID CFLD_DESC NINDEX KEYBOARD CHR(23) PLAIN cVARREADf M->TYPE nINDEX nFLDf DO FLD_HELP WITH nFLD BAR230f F PL F SAT F AST F COMETF Planet Satellite/Moon Asteriod Comet Press [Enter] to Select DEACTIVATE POPUP POP_UP F PL F SAT F AST F COMETF BAR233f \<0 - No Index \<1 - by Object \<2 - by Other \<3 - by Notes \<4 - by Clubs Press [Enter] to Select DEACTIVATE POPUP POP_UP CVARREAD CFILTER_ MDUMMY NLASTKEY RREAD BAR230 POP_UP DIALOG NINDEX BAR233 NEXTKEY *HT \!\?\<Ascending;\<Descending 999.999 CWINDOW NWINDOW BMEMO CFONTS CFLD_DESC MDESC MVALID NSAY_COL NSAY_ROW BDISPLAY SBLANK DDATE_1 DDATE_2 OBJECT OTHER BAR230 EFLD_DES93 CLUBS CNOTES BAR233 NINDEX NORDER BSAVED OBJECT OTHER CLUBS CNOTES NINDEX NORDER DDATE_1 DDATE_2 FLD_FND1 FLD_DES1 FLD_POP1 FLD_UNQ1 FLD_FND2 FLD_DES2 FLD_POP2 FLD_UNQ2 FLD_FND3 FLD_DES3 FLD_POP3 FLD_UNQ3 BRW10 = "C" BRV10 " $ mW( FLD_BRO10 FLD_GET10 FLD_DES10 FLD_POP10 FLD_SAY10 FLD_SHW10 FLD_TXT10 FLD_FND11 FLD_DES11 FLD_POP11 FLD_UNQ11 BRW12 TO bL BRV12 C FLD_BRO12 FLD_GET12 FLD_DES12 FLD_POP12 FLD_SAY12 FLD_SHW12 FLD_TXT12 FLD_SHW13 FLD_TXT13 OPT_GET13 FLD_DES13 FLD_POP13 OPT_SAY13 OPT_TXT13 FLD_FND21 FLD_DES21 FLD_POP21 FLD_UNQ21 FLD_FND22 FLD_DES22 FLD_POP22 FLD_UNQ22 FLD_FND23 FLD_DES23 FLD_POP23 FLD_UNQ23 BRW30 BRV30 FLD_BRO30 FLD_GET30 FLD_DES30 FLD_POP30 FLD_SAY30 FLD_SHW30 FLD_TXT30 FLD_FND31 FLD_DES31 FLD_POP31 FLD_UNQ31 BRW32 BRV32 FLD_BRO32 FLD_GET32 FLD_DES32 FLD_POP32 FLD_SAY32 FLD_SHW32 FLD_TXT32 FLD_SHW33 FLD_TXT33 OPT_GET33 FLD_DES33 FLD_POP33 OPT_SAY33 OPT_TXT33 FLD_FND41 FLD_DES41 FLD_POP41 FLD_UNQ41 FLD_FND42 FLD_DES42 FLD_POP42 FLD_UNQ42 FLD_FND43 FLD_DES43 FLD_POP43 FLD_UNQ43 BRW50 BRV50 FLD_BRO50 FLD_GET50 FLD_DES50 FLD_POP50 FLD_SAY50 FLD_SHW50 FLD_TXT50 FLD_FND51 FLD_DES51 FLD_POP51 FLD_UNQ51 BRW52 BRV52 FLD_BRO52 FLD_GET52 FLD_DES52 FLD_POP52 FLD_SAY52 FLD_SHW52 FLD_TXT52 FLD_SHW53 FLD_TXT53 OPT_GET53 FLD_DES53 FLD_POP53 OPT_SAY53 OPT_TXT53 FLD_FND61 FLD_DES61 FLD_POP61 FLD_UNQ61 FLD_FND62 FLD_DES62 FLD_POP62 FLD_UNQ62 FLD_FND63 FLD_DES63 FLD_POP63 FLD_UNQ63 BRW70 TAB W BRV70 KEY FLD_BRO70 FLD_GET70 FLD_DES70 FLD_POP70 FLD_SAY70 FLD_SHW70 FLD_TXT70 FLD_FND71 FLD_DES71 FLD_POP71 FLD_UNQ71 BRW72 BRV72 EL CT FLD_BRO72 FLD_GET72 FLD_DES72 FLD_POP72 FLD_SAY72 FLD_SHW72 FLD_TXT72 FLD_SHW73 FLD_TXT73 OPT_GET73 FLD_DES73 FLD_POP73 OPT_SAY73 OPT_TXT73 FLD_FND81 FLD_DES81 FLD_POP81 FLD_UNQ81 FLD_FND82 FLD_DES82 FLD_POP82 FLD_UNQ82 FLD_FND83 FLD_DES83 FLD_POP83 FLD_UNQ83 BRW90 S BRV90 FLD_BRO90 FLD_GET90 FLD_DES90 FLD_POP90 FLD_SAY90 FLD_SHW90 FLD_TXT90 FLD_FND91 FLD_DES91 FLD_POP91 FLD_UNQ91 BRW92 . BRV92 FLD_BRO92 FLD_GET92 FLD_DES92 FLD_POP92 FLD_SAY92 FLD_SHW92 FLD_TXT92 FLD_SHW93 FLD_TXT93 OPT_GET93 FLD_DES93 FLD_POP93 OPT_SAY93 OPT_TXT93 D:\SKY\SAC\ SCR.FXP D:\SKY\SAC\SCR.PRG